Select Code to Download

use warnings;
use strict;
...
$obj->foo("abc"); # Now foo() has an extra first element in @_
foo("abc"); # die() for Bareword from 'strict subs'

package Two;

...
sub new { ... }
sub newMethod { ... }
sub overrideOldMethod { ... }