Select Code to Download

class Dog:

...

# Instantiate the Dog object
philo = Dog("Philo", 5)

package Dog;

...
package main;

my $philo = Dog->__init__('Philo', 5);

sub __init__ ($class, $name, $age)
{
    my $self = bless {name => $name, age => $age}, $class;
}