Mega Code Archive

 

Categories / Perl / Class

 

Initializing Attributes In The Constructor

package Person; use warnings; use strict; sub new {     my $class = shift;     my $self = {@_};     bless($self, $class);     return $self; } 1; #!/usr/bin/perl use Person; my $object = Person->new (     surname => "G",     forename => "G",     address => "Apts.",     occupation => "tester" ); print "This person's surname: ", $object->surname, "\n";