t/012_super_and_override.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 7;
   7
   8 BEGIN {
   9     use_ok('Moose');
  10 }
  11
  12 {
  13     package Foo;
  14     use strict;
  15     use warnings;
  16     use Moose;
  17
  18     sub foo { 'Foo::foo' }
  19     sub bar { 'Foo::bar' }
  20     sub baz { 'Foo::baz' }
  21
  22     package Bar;
  23     use strict;
  24     use warnings;
  25     use Moose;
  26
  27     extends 'Foo';
  28
  29     override bar => sub { 'Bar::bar -> ' . super() };
  30
  31     package Baz;
  32     use strict;
  33     use warnings;
  34     use Moose;
  35
  36     extends 'Bar';
  37
  38     override baz => sub { 'Baz::baz -> ' . super() };
  39 }
  40
  41 my $baz = Baz->new();
  42 isa_ok($baz, 'Baz');
  43 isa_ok($baz, 'Bar');
  44 isa_ok($baz, 'Foo');
  45
  46 is($baz->foo(), 'Foo::foo', '... got the right value from &foo');
  47 is($baz->bar(), 'Bar::bar -> Foo::bar', '... got the right value from &bar');
  48 is($baz->baz(), 'Baz::baz -> Foo::baz', '... got the right value from &baz');