package Palm::AGsu;
use strict;
use warnings;
use base qw(Palm::Raw);
sub get_field_by_name {
my ($self, $name) = @_;
....
}
sub you_other_methods_here {
my ($self, $param1, $param2,...) = @_;
....
}
....
1;
####
#!/usr/bin/perl -w
use Test::More qw(no_plan); # for now ...
BEGIN {
use_ok('Palm::AGsu') or die "cannot use Palm::AGsu';
};
require_ok('Palm::AGsu');
my pa = Palm::AGsu->new(...whatever...);
isa_ok($pa, 'Palm::AGsu');
is($pa->get_field_by_name('some field'), 'some value', 'some field == some value');
...
##
##
prove -vl t/Palm/AGsu.t
...