6 use Test::More 'no_plan';
24 my ( $self, @args ) = @_;
25 $self->meta->clone_object( $self, @args );
29 my $foo = Foo->new( bar => [ 1, 2, 3 ] );
31 is( $foo->foo, "foo", "attr 1", );
32 is_deeply( $foo->bar, [ 1 .. 3 ], "attr 2" );
34 my $clone = $foo->clone( foo => "dancing" );
36 is( $clone->foo, "dancing", "overridden attr" );
37 is_deeply( $clone->bar, [ 1 .. 3 ], "clone attr" );