git.maemo.org Git - pkg-perl/blob - deb-src/libclass-accessor-perl/libclass-accessor-perl-0.31/t/getset.t

   1 #!perl
   2 use strict;
   3 use Test::More tests => 3;
   4
   5 require_ok("Class::Accessor");
   6
   7 @Foo::ISA = qw(Class::Accessor);
   8 Foo->mk_accessors(qw( foo ));
   9
  10 my $test = Foo->new({ foo => 49 });
  11
  12 is $test->get('foo'), 49, "get initial foo";
  13 $test->set('foo', 42);
  14 is $test->get('foo'), 42, "get new foo";