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;
[download]

#!/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');

...
[download]

Then you can do this

prove -vl t/Palm/AGsu.t

...<output from test harness>...
[download]