Help for this page

Select Code to Download

Select or download this
```
sub Foo::_print { print shift }
```

Select or download this

my $_print;
*Foo::_print = sub { $_print = shift };
is($_print, $expected, "Foo::_print output the correct data");