my $cat = new Cat("Jones", "gray");
    $cat->meow();
    $cat->printDetails();

Let's look at what we have. Here is a small file called Cat.pl:

     package Cat;
     sub new {
        my $class = shift;
        my $self = {};
        bless $self;
        if (defined $_[0]) {
                $self->{'name'} = shift;
                }
        if (defined $_[0]) {
                $self->{'color'} = shift;
                }
        return $self;
        }

     sub meow {
        print "meow\n";
        }

     sub printDetails {
        my $self = shift;
        print "$self->{name}\n";
        print "$self->{color}\n";
        }

     package main;
     my $cat = new Cat("Fred", "white");
     $cat->meow();
     $cat->printDetails();

Previous | Next | Table of Contents