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]

Many, many thanks!

A final question: What should I do so that others can review and criticize my modules? Shall I post it here? Are there any monks around wanting to check what I did?

Well, you can post a Meditation here and label it 'RFC' (Request For Comment). You will get a fair bit of commentary and critique initially. For longer term feed-back, get your self a PAUSE ID and build a CPAN distribution. I know, that's a lot more work, but....

----
I Go Back to Sleep, Now.

OGB