use Test::More;
BEGIN {
if (eval "require Class::Method::Modifiers; 1") {
- plan tests => 58;
+ plan tests => 59;
}
else {
plan skip_all => "Class::Method::Modifiers required for this test";
use Mouse::Util;
use Test::Exception;
-BEGIN {
- use_ok('Mouse');
-}
-
{
package Point;
use Mouse;
extends 'Point';
- has 'z' => (isa => 'Int');
+ has 'z' => (isa => 'Int', is => 'bare');
after 'clear' => sub {
my $self = shift;
[ 'Mouse::Object' ],
'... Point got the automagic base class');
-my @Point_methods = qw(meta new x y clear);
+my @Point_methods = qw(meta new x y clear DESTROY);
my @Point_attrs = ('x', 'y');
is_deeply(
[ 'Point' ],
'... Point3D gets the parent given to it');
-my @Point3D_methods = qw(new meta clear);
+my @Point3D_methods = qw(new meta clear DESTROY);
my @Point3D_attrs = ('z');
SKIP: {