getset.t   [plain text]

#!perl
use strict;
use Test::More tests => 3;

require_ok("Class::Accessor");

@Foo::ISA = qw(Class::Accessor);
Foo->mk_accessors(qw( foo ));

my $test = Foo->new({ foo => 49 });

is $test->get('foo'), 49, "get initial foo";
$test->set('foo', 42);
is $test->get('foo'), 42, "get new foo";