<![CDATA[
#!perl -w
use strict;
# define an Object
package GoGetter;
use GetterSetter 0.001;
our @ISA = qw/GetterSetter/;
sub new {
my $self = shift;
my $class = ref($self) || $self;
$self = { action => "", time => "",
priority => "", place => "" };
return bless($self, $class);
}
use Test::More tests => 4;
{
my $obj = GoGetter->new();
print "GetterSetter VERSION tested: ", $GetterSetter::VERSION, "\n";
isa_ok($obj, 'GetterSetter');
isa_ok($obj, 'GoGetter');
is($obj->action("BLAST"),"BLAST",'set action("BLAST")');
is($obj->action(),"BLAST",'get action("BLAST")');
# successful exit
exit (0);
}
]]>