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
|
use 5.010;
use warnings;
use Test::More 'no_plan';
use Regexp::Grammars;
qr{
<grammar: Base>
<rule: baserule>
baserule
<rule: baserule2>
baserule2
}x;
qr{
<grammar: Intermediate>
<extends: Base>
}x;
my $baserule = qr{
<extends: Intermediate>
<Intermediate::baserule>
}x;
my $baserule2 = qr{
<extends: Intermediate>
<NEXT::baserule2>
}x;
ok 'baserule' =~ $baserule => 'Specific polymorphism worked';
ok 'baserule2' =~ $baserule2 => 'Generic polymorphism worked';
|
