Select Code to Download

sub new {
  my ($class,%args) = @_;
  my $new_object = $class->SUPER::new(%args);
  ....

$ perl t2.pl
I'm in the child_class new
...
Use of uninitialized value in array element at /home/glide/develop/per
+l_tests/Object_InsideOut/class_insideout.pm line 28.
Use of uninitialized value in concatenation (.) or string at /home/gli
+de/develop/perl_tests/Object_InsideOut/class_insideout.pm line 28.
address:

package class_insideout;
use strict;
...
  }
}
1;

package child_class;

...
  }
}
1;

use strict;
use warnings;
...
my $person = child_class->new(id=>1,name=>'aaa',address=>'bbb') or die
+();

$person->write();