|
# Module: House.pm
package House; # Class
sub new { #constructor
my $class = shift;
my $ref={"Owner"=>undef,
"Price" =>undef,
};
bless($ref, $class);
return $ref; # A reference to the object is returned
}
1;
# The User of the Module)
#!/usr/bin/perl
use House;
my $houseref = House->new();
print ref($houseref),".\n";
|