summaryrefslogtreecommitdiffstats
path: root/gnu/usr.bin/perl/t/mro/next_inanon.t
blob: 4c3c007d6e3274f0074df590be452460ee9d7b60 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!/usr/bin/perl

use strict;
use warnings;

require q(./test.pl); plan(tests => 2);

=pod

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

=cut

{
    package AA;
    use mro 'c3'; 

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

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

{
    package BB;
    use base 'AA';
    use mro 'c3'; 
    
    sub foo {
      my $code = sub {
        return 'BB::foo => ' . (shift)->next::method();
      };
      return (shift)->$code;
    }

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

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

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