package My::Class;
use strict;
@My::Class::ISA = ();
$My::Class::VERSION = '1.1';
sub new {
my ( $pkg, $params ) = @_;
my $class = ref $pkg || $pkg;
return bless( $params, $class );
}
sub fetch_paper {
my ( $self ) = @_;
...
}
1;
__END__
=pod
=head1 NAME
My::Class -- Does whatever I tell it
=head1 SYNOPSIS
my $my = My::Class->new();
my $paper = eval { $my->fetch_paper() };
if ( $@ ) {
die "Sorry, could not fetch paper because of: $@";
}
=head1 DESCRIPTION
This class defines a multipurpose, serializable and network
transportable object.
=head1 METHODS
B