use strict;
use warnings;
-use Test::More tests => 6; #7;
+use Test::More tests => 6;
use Test::Exception;
-BEGIN {
- use_ok('Moose');
-}
+
{
package Elk;
return $class->meta->new_object('__INSTANCE__' => $super, @_);
}
- make_immutable(debug => 0);
+ __PACKAGE__->meta->make_immutable(debug => 0);
package Bucket;
use metaclass 'Class::MOP::Class';
extends 'Bucket';
package MyBase;
-
sub foo { }
package Custom::Meta1;
is($foo_moose->no_moose, 'Elk', '... got the right value from the Elk method');
is($foo_moose->moose, 'Foo', '... got the right value from the Foo::Moose method');
-#lives_ok {
-# Old::Bucket::Nose->meta->make_immutable(debug => 0);
-#} 'Immutability on Moose class extending Class::MOP class ok';
-
+lives_ok {
+ Old::Bucket::Nose->meta->make_immutable(debug => 0);
+} 'Immutability on Moose class extending Class::MOP class ok';
+
lives_ok {
- SubClass2::extends('MyBase');
+ SubClass2->meta->superclasses('MyBase');
} 'Can subclass the same non-Moose class twice with different metaclasses';
+