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