Help for this page

Select Code to Download


  1. or download this
    package Test::MockSub;

...
    delete $self->{$_} for keys %{ $self };
}
1;
  2. or download this
    package MyPackage;

...
    $obj->foo;
}
1;
  3. or download this
    package One;

...
    print "in One::foo\n";
}
1;
  4. or download this
    use warnings;
use strict;
...
    say defined $ret1 && ! defined $ret2 ? 'success' : 'failed';
}