use strict;
use warnings;
-use Test::More tests => 15;
+use Test::More;
use Test::Exception;
{
package Foo;
- sub new {
- bless({}, 'Foo')
+ sub new {
+ bless({}, 'Foo')
}
-
+
sub a { 'Foo::a' }
}
handles => qr/^a$/,
);
} '... can create the attribute with delegations';
-
+
}
my $bar;
handles => qr/.*/,
);
} '... can create the attribute with delegations';
-
+
}
is(@w, 0, "no warnings");
handles => [qw(a new)],
);
} '... can create the attribute with delegations';
-
+
}
{
is($blart->a, 'Foo::a', '... got the right delgated value');
-
+done_testing;