Select Code to Download

use Test::More;
use Scalar::Util qw(reftype);
...
BEGIN { $n_tests += 2 }

BEGIN { plan tests => $n_tests }

package Person;
use strict; use warnings;
...
    $$obj->surname     = $last;
}
1;