]> git.vpit.fr Git - perl/modules/Sub-Op.git/blob - t/Sub-Op-LexicalSub/lib/Sub/Op/LexicalSub.pm
8d04dc0df558b88b9a4424ed47931c616cd48c39
[perl/modules/Sub-Op.git] / t / Sub-Op-LexicalSub / lib / Sub / Op / LexicalSub.pm
1 package Sub::Op::LexicalSub;
2
3 use strict;
4 use warnings;
5
6 our ($VERSION, @ISA);
7
8 use Sub::Op;
9
10 BEGIN {
11  $VERSION = '0.01';
12  require DynaLoader;
13  push @ISA, 'DynaLoader';
14  __PACKAGE__->bootstrap($VERSION);
15 }
16
17 sub import {
18  shift;
19
20  my ($name, $cb) = @_;
21
22  _init($name, $cb);
23
24  Sub::Op::enable($name => scalar caller);
25 }
26
27 1;