+use strict;
+use lib 't/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");