projects
/
gitmo/MooseX-Emulate-Class-Accessor-Fast.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add failing test for CAFs auto-arrayification when calling accessors with a list...
[gitmo/MooseX-Emulate-Class-Accessor-Fast.git]
/
t
/
list_assign.t
1
use strict;
2
use warnings;
3
use Test::More tests => 1;
4
use MooseX::Adopt::Class::Accessor::Fast;
5
6
{
7
package Some::Class;
8
use strict;
9
use warnings;
10
use base qw/Class::Accessor::Fast/;
11
12
__PACKAGE__->mk_accessors(qw/ foo /);
13
}
14
15
my $i = bless {}, 'Some::Class';
16
$i->foo(qw/bar baz/);
17
is_deeply($i->foo, [qw/ bar baz /]);