7 BEGIN { our @ISA = 'ZeroZero' }
14 $INC{'Class/Tiny/Object.pm'}, undef,
15 'Object.pm not loaded if not required'
26 [ @MyClass1::ISA ], [ 'Moo::Object' ], 'superclass defaulted'
32 use base qw(MyClass1);
37 [ @MyClass2::ISA ], [ 'MyClass1' ], 'prior superclass left alone'
49 [ @MyClass3::ISA ], [ 'MyClass2' ], 'extends sets superclass'
52 { package WhatTheFlyingFornication; sub wtff {} }
59 extends 'WhatTheFlyingFornication';
61 extends qw(MyClass2 MyClass3);
65 [ @MyClass4::ISA ], [ qw(MyClass2 MyClass3) ], 'extends overwrites'
75 around foo => sub { my $orig = shift; $orig->(@_).' with around' };
78 is(MyClass5->foo, 'foo with around', 'method modifier');