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