Select Code to Download

sub new {

...
    return $obj;

    }

sub new {

...
        } => $class;

    }

c:\@Work\Perl>perl -wMstrict -le
"use warnings;
...
ok 3 - object data equivalent
ok 4 - no warnings
1..4