Mega Code Archive

 

Categories / Perl / Class

 

Our First Constructor

package Person; use warnings; use strict; sub new {     my $self = {};     bless ($self, "Person");     return $self; } 1; #Now we can use our Person class to create an object: #/usr/bin/perl use warnings; use strict; use Person; my $person = Person->new();