Select Code to Download

package Foo;
use warnings;
...
    print "Num: $call_num called as $call_type\n";

}

use warnings;
use strict;
...
# Call as method
my $obj = Foo->new;
$obj->function_or_method('2', 'method');