use Class::MOP::Method;
-ok exception { Class::MOP::Attribute->name }, q{... can't call name() as a class method};
+isnt( exception { Class::MOP::Attribute->name }, undef, q{... can't call name() as a class method} );
{
my $class = Class::MOP::Class->initialize('Foo');
isa_ok($class, 'Class::MOP::Class');
- ok ! exception {
+ is( exception {
$attr->attach_to_class($class);
- }, '... attached a class successfully';
+ }, undef, '... attached a class successfully' );
is($attr->associated_class, $class, '... the class was associated correctly');
{
for my $value ({}, bless({}, 'Foo')) {
- like exception {
+ like( exception {
Class::MOP::Attribute->new('$foo', default => $value);
- }, qr/References are not allowed as default values/;
+ }, qr/References are not allowed as default values/ );
}
}
{
my $attr;
- ok ! exception {
+ is( exception {
my $meth = Class::MOP::Method->wrap(sub {shift}, name => 'foo', package_name => 'bar');
$attr = Class::MOP::Attribute->new('$foo', default => $meth);
- }, 'Class::MOP::Methods accepted as default';
+ }, undef, 'Class::MOP::Methods accepted as default' );
is($attr->default(42), 42, 'passthrough for default on attribute');
}