Commit | Line | Data |
---|---|---|
c5a105b3 | 1 | #!perl |
2 | use strict; | |
3 | use Test::More tests => 3; | |
4 | ||
5 | require_ok("MooseX::Adopt::Class::Accessor::Fast"); | |
6 | ||
7 | @Foo::ISA = qw(Class::Accessor::Fast); | |
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"); |