# pl-pm -- template for building perl modules
# $Id$
# Carlos Duarte <cgd@mail.teleweb.pt>, 991206

use strict;

package XXX; 

# use: my $o = new XXX; 
# use: my $o = new XXX(arg1, arg2); 
#
sub new {
	my $class = shift; 
	my $self = {}; 
	bless $self, $class;
	$self->init(@_); 	# new args
	return $self; 
}

sub DESTROY {
	my $self = shift; 
	$self->finit(); 
}

# data can be stored as: $self->{'data1'} = 'val1'; 
# receive new args on @_
#
sub init { 
	my $self = shift; 
}

sub finit {
	my $self = shift; 
}

# do some work, invoked as: my $o = new XXX; $o->work($arg1, $arg2); 
# 
sub work {
	my $self = shift; 
	my $arg1 = shift; 
	my $arg2 = shift; 
}

1;