#!perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use lib 't';
use Container2;
Container2::run_shadow_attrs( attrs => [ 'a' ],
private => 0,
instance => 0,
fmt => sub { shift . '0' },
);
Container2::run_shadow_attrs( attrs => [ 'a' ],
private => 0,
instance => 1,
fmt => sub { shift . '1' },
);
my $obj = Container2->new( a0 => 3, a1 => 4 );
is ( $obj->a0, 3, 'container attribute 0' );
is ( $obj->a1, 4, 'container attribute 1' );
is ( $obj->foo->[0]->a, 3, 'contained attribute 0' );
is ( $obj->foo->[1]->a, 4, 'contained attribute 1' );
done_testing;