Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
  my $sub = $subref->{dispatch}->{$pos};
  Dump ($sub);  ###!!
}
  2. or download this
    my ($self);
$self = bless( {}, 'Foo' );
...
           use strict 'refs';
           $self->subb;
         };
  3. or download this
    package Foo;
use strict; use warnings;
...
}

1;
  4. or download this
    POS: A
$CODE1 = sub {
...
           use strict 'refs';
           return;
         };