[gitmo/MooseX-Emulate-Class-Accessor-Fast.git] / t / list_assign.t

use strict;
use warnings;
use Test::More tests => 1;
use MooseX::Adopt::Class::Accessor::Fast;

{
  package Some::Class;
  use strict;
  use warnings;
  use base qw/Class::Accessor::Fast/;

  __PACKAGE__->mk_accessors(qw/ foo /);
}

my $i = bless {}, 'Some::Class';
$i->foo(qw/bar baz/);
is_deeply($i->foo, [qw/ bar baz /]);
Commit	Line	Data
aedcd4c7	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 /]);