Rename Sub::Op::Test to Sub::Op::LexicalSub

[perl/modules/Sub-Op.git] / t / Sub-Op-LexicalSub / lib / Sub / Op / LexicalSub.pm

diff --git a/t/Sub-Op-LexicalSub/lib/Sub/Op/LexicalSub.pm b/t/Sub-Op-LexicalSub/lib/Sub/Op/LexicalSub.pm
new file mode 100644 (file)
index 0000000..8d04dc0
--- /dev/null
+++ b/t/Sub-Op-LexicalSub/lib/Sub/Op/LexicalSub.pm
@@ -0,0 +1,27 @@
+package Sub::Op::LexicalSub;
+
+use strict;
+use warnings;
+
+our ($VERSION, @ISA);
+
+use Sub::Op;
+
+BEGIN {
+ $VERSION = '0.01';
+ require DynaLoader;
+ push @ISA, 'DynaLoader';
+ __PACKAGE__->bootstrap($VERSION);
+}
+
+sub import {
+ shift;
+
+ my ($name, $cb) = @_;
+
+ _init($name, $cb);
+
+ Sub::Op::enable($name => scalar caller);
+}
+
+1;