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';
    }