Example: Perl5 object/module

package Netscape::Test;

sub new {

my ($class, $init) = @_;

my $self = {}; # Hash array class “data”

$self->{status} = “Some Value”;

$self->init($init); # Call class initializer

...

Return bless $self, $class;

}

sub DESTROY {

...

}

1;

Previous slide

Next slide

Back to first slide

View graphic version