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;