Help for this page

Select Code to Download


  1. or download this
    sub import
{
...
        $registry->$_( shift(@_) );
    } elsif( ... ) {
            ...
  2. or download this
    $registry->$_( shift(@_) );
  3. or download this
    17:43 >perl -wE "f(1, 2, 3); sub f { local($_) = shift(@_); my $c = sh
+ift(@_); say '$_ = ', $_; say '$c = ', $c; say '@_ = ', @_; }"
$_ = 1
...
@_ = 3

18:07 >