Select Code to Download

{
    package Test;
...

my $tmp = Test->new;
print $tmp->len,"\n";

function "arr" called
function "scaler" called
Can't use string ("1") as a HASH ref while "strict refs" in use at ./t
+est.pl line 25.