BEGIN { our @ISA = 'ZeroZero' }
- use Class::Tiny;
+ use Moo;
}
BEGIN {
{
package MyClass1;
- use Class::Tiny;
+ use Moo;
}
is_deeply(
- [ @MyClass1::ISA ], [ 'Class::Tiny::Object' ], 'superclass defaulted'
+ [ @MyClass1::ISA ], [ 'Moo::Object' ], 'superclass defaulted'
);
{
package MyClass2;
use base qw(MyClass1);
- use Class::Tiny;
+ use Moo;
}
is_deeply(
{
package MyClass3;
- use Class::Tiny;
+ use Moo;
extends 'MyClass2';
}
{
package MyClass4;
- use Class::Tiny;
+ use Moo;
extends 'WhatTheFlyingFornication';
{
package MyClass5;
- use Class::Tiny;
+ use Moo;
sub foo { 'foo' }