Improve mro merging error messages.

[gitmo/Class-C3-XS.git] / t / 35_next_method_in_anon.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3;

BEGIN { use_ok('Class::C3::XS') }

=pod

This tests the successful handling of a next::method call from within an
anonymous subroutine.

=cut

{
    package A;

    sub foo {
      return 'A::foo';
    }

    sub bar {
      return 'A::bar';
    }
}

{
    package B;
    use base 'A';
    
    sub foo {
      my $code = sub {
        return 'B::foo => ' . (shift)->next::method();
      };
      return (shift)->$code;
    }

    sub bar {
      my $code1 = sub {
        my $code2 = sub {
          return 'B::bar => ' . (shift)->next::method();
        };
        return (shift)->$code2;
      };
      return (shift)->$code1;
    }
}

is(B->foo, "B::foo => A::foo",
   'method resolved inside anonymous sub');

is(B->bar, "B::bar => A::bar",
   'method resolved inside nested anonymous subs');