Select Code to Download

package Palm::AGsu;

...
....

1;

#!/usr/bin/perl -w

...
is($pa->get_field_by_name('some field'), 'some value', 'some field == 
+some value');

...

prove -vl t/Palm/AGsu.t

...<output from test harness>...