38 lines
939 B
Perl
38 lines
939 B
Perl
|
There is no "class" keyword.
|
||
|
|
The properties are variables used to describe the object.
|
||
|
|
Methods are functions that create and manipulate the object.
|
||
|
|
Objects are created with the bless function.
|
||
|
|
|
||
|
|
#Creating a Class
|
||
|
|
|
||
|
|
package Pet
|
||
|
|
|
||
|
|
sub new{ # Constructor
|
||
|
|
my $class = shift;
|
||
|
|
my $pet = {
|
||
|
|
"Name" => undef,
|
||
|
|
"Owner" => undef,
|
||
|
|
"Type" => undef,
|
||
|
|
};
|
||
|
|
bless($pet, $class);
|
||
|
|
sub set_pet{
|
||
|
|
my $self = shift;
|
||
|
|
my ($name, $owner, $type)= @_;
|
||
|
|
$self->{'Name'} = $name;
|
||
|
|
$self->{'Owner'}= $owner;
|
||
|
|
$self->{'Type'}= $type;
|
||
|
|
}
|
||
|
|
sub get_pet{
|
||
|
|
my $self = shift;
|
||
|
|
while(($key,$value)=each($%self)){
|
||
|
|
print "$key: $value\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#Instantiating a Class
|
||
|
|
|
||
|
|
$cat = Pet->new();
|
||
|
|
# Create an object with a constructor method
|
||
|
|
$cat->set_pet("Sneaky", "Mr. Jones", "Siamese");
|
||
|
|
# Access the object with an instance
|
||
|
|
$cat->get_pet;
|