use strict;
use warnings;
-use Test::More tests => 28;
+use Test::More;
=pod
? $_[0]
: $_[0]->meta->prototype_instance;
my (undef, %params) = @_;
- my $self = $prototype->meta->clone_object($prototype, %params);
- $self->BUILDALL(\%params);
- return $self;
+ my $self = $prototype->meta->clone_object($prototype, %params);
+ $self->BUILDALL(\%params);
+ return $self;
}
}
is(Foo->bar, 100, '... still got the original value stored in the prototype (through the Foo class)');
is(Bar->bar, 100, '... still got the original value stored in the prototype (through the Bar class)');
-
+done_testing;