Commit | Line | Data |
5a6e3389 |
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use Class::MOP (); |
6 | use Test::More skip_all => 'TODO'; # |
7 | use MooseX::Adopt::Class::Accessor::Fast; |
8 | |
9 | { |
10 | package TestPackage; |
11 | use base 'Class::Accessor::Fast'; |
12 | __PACKAGE__->mk_accessors(qw/ meta /); |
13 | } |
14 | |
15 | my $i = TestPackage->new( meta => 66 ); |
16 | |
17 | is $i->meta, 66, 'meta accessor read value from constructor'; |
18 | $i->meta(9); |
19 | is $i->meta, 9, 'meta accessor read set value'; |
20 | |
21 | my $meta = Class::MOP::get_metaclass_for('TestPackage'); |
22 | $meta->make_immutable; |
23 | |
24 | is $i->meta, 9, 'meta accessor read value from constructor'; |
25 | $i->meta(66); |
26 | is $i->meta, 66, 'meta accessor read set value'; |
27 | |
28 | |
29 | __END__; |
30 | |