Help for this page

Select Code to Download


  1. or download this
    use warnings;
    no warnings 'redefine';
    ...
        print One::foo();
    }
    print One::foo();
    
  2. or download this
    package One;
    
    ...
        $self->unmock;
    }
    1;
    
  3. or download this
            my $count;
    
    ...
                    ? $self->{return}[0]
                    : @{ $self->{return} };
            };