X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F004_inner_and_augment.t;h=4957d2674967ee7172a94ecb28720ec413fc7676;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=15f42489ecf854b205aaf6e885113d5eb724768c;hpb=e606ae5f848070d889472329819c95f5ba763ca3;p=gitmo%2FMoose.git diff --git a/t/010_basics/004_inner_and_augment.t b/t/010_basics/004_inner_and_augment.t index 15f4248..4957d26 100644 --- a/t/010_basics/004_inner_and_augment.t +++ b/t/010_basics/004_inner_and_augment.t @@ -11,32 +11,32 @@ use Test::Exception; { package Foo; use Moose; - + sub foo { 'Foo::foo(' . (inner() || '') . ')' } - sub bar { 'Foo::bar(' . (inner() || '') . ')' } - sub baz { 'Foo::baz(' . (inner() || '') . ')' } - + sub bar { 'Foo::bar(' . (inner() || '') . ')' } + sub baz { 'Foo::baz(' . (inner() || '') . ')' } + package Bar; use Moose; - + extends 'Foo'; - - augment foo => sub { 'Bar::foo(' . (inner() || '') . ')' }; - augment bar => sub { 'Bar::bar' }; + + augment foo => sub { 'Bar::foo(' . (inner() || '') . ')' }; + augment bar => sub { 'Bar::bar' }; no Moose; # ensure inner() still works after unimport - + package Baz; use Moose; - + extends 'Bar'; - - augment foo => sub { 'Baz::foo' }; - augment baz => sub { 'Baz::baz' }; - # this will actually never run, + augment foo => sub { 'Baz::foo' }; + augment baz => sub { 'Baz::baz' }; + + # this will actually never run, # because Bar::bar does not call inner() - augment bar => sub { 'Baz::bar' }; + augment bar => sub { 'Baz::bar' }; } my $baz = Baz->new(); @@ -68,19 +68,19 @@ is($foo->baz(), 'Foo::baz()', '... got the right value from &baz'); { package Bling; use Moose; - + sub bling { 'Bling::bling' } - + package Bling::Bling; use Moose; - + extends 'Bling'; - - sub bling { 'Bling::bling' } - + + sub bling { 'Bling::bling' } + ::dies_ok { augment 'bling' => sub {}; } '... cannot augment a method which has a local equivalent'; - + }