Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

use Data::Dumper;
...
    my $self=shift;
    warn Data::Dumper->Dump([\$self],[qw(*self)]),' ';
     };

Select or download this

c:\Users\Clueless>perl can.pl
$ref = \sub {
             package Yada;
...
             warn 'Data::Dumper'->Dump([\$self], ['*self']), ' ';
         };
  at can.pl line 10.