Commit 86f19cddb58e9637f0f1588ec5d03f7a275e909c
- Diff rendering mode:
- inline
- side by side
Parse/RLRD.pm
(1 / 2)
| 83 | 83 | } | |
| 84 | 84 | ||
| 85 | 85 | if ($matches->[$i] && (!$best || $matches->[$i][0][1] < $best->[0][1])) { | |
| 86 | $best = [@{$matches->[$i]}]; # XXX | ||
| 86 | $best = $matches->[$i]; # XXX | ||
| 87 | 87 | #print Dumper($best); | |
| 88 | 88 | $rule = $self->{children}[$i]; | |
| 89 | 89 | last if $best->[0][1] == 0; | |
| … | … | ||
| 98 | 98 | ||
| 99 | 99 | $best or last; | |
| 100 | 100 | ||
| 101 | $rule = $self->rule_class->new($rule) if !blessed($rule); | ||
| 102 | 101 | $rule->build($node, $best, $options); | |
| 103 | 102 | ||
| 104 | 103 | my $chopped = $best->[0][1] + length($best->[0][0]); |
t/rule.t
(1 / 1)
| 6 | 6 | use FindBin (); | |
| 7 | 7 | use Test::More; | |
| 8 | 8 | ||
| 9 | use lib File::Spec->updir; | ||
| 9 | use lib File::Spec->catdir($FindBin::Bin, File::Spec->updir); | ||
| 10 | 10 | ||
| 11 | 11 | use Parse::RLRD; | |
| 12 | 12 |
