use strict;
use lib 't/10-usage';
use Test::More skip_all => "Needs lameness in user code";
# my $caller = caller;
#
# This won't work unless the subs are predeclared before the C<use> statement
# # Handle import tags
# if (@_ == 1) {
# if ($_[0] ne ":import") {
# require Carp;
# Carp::croak("Unknown tag '$_[0]'");
# }
#
# # We have :import, generate import and unimport methods in the
# # calling package
# my %pkg;
# for (qw<comp exec>) {
# no strict 'refs';
# $pkg{$_} = *{"$caller\::$_"}{CODE} if *{"$caller\::$_"}{CODE};
# }
#
# use Data::Dumper;
# warn Dumper \%pkg;
#
# no strict 'refs';
# *{"$caller\::import"} = sub {
# __PACKAGE__->import(%pkg);
# };
# *{"$caller\::unimport"} = \&unimport;
#
# return;
# }
#
use import;
"ook" =~ /pattern/;
is($1, "ook_1");