Mega Code Archive

 

Categories / Perl / Class

 

Passing Parameters to Constructor Methods

# Module: House.pm package House; sub new{              my $class = shift;     my ($owner, $salary) = @_;     my $ref={"Owner"=>$owner,               "Price"=>$price,              };     bless($ref, $class);     return $ref; } sub display_object {            my $self = shift;           while( ($key, $value)=each %$self){        print "$key: $value \n";     } } 1; # main.pl #!/usr/bin/perl my $house1 = House->new("A", 2); my $house2 = House->new("B", 5); $house1->display_object; $house2->display_object; print "$house1, $house2\n";