| line |
true |
false |
branch |
|
19
|
0 |
0 |
unless my $filename = $self->file |
|
21
|
0 |
0 |
unless open TEXT, '<', $filename |
|
35
|
0 |
9 |
unless my $text = $self->text |
|
41
|
1 |
8 |
unless $self->start_rules |
|
48
|
0 |
0 |
if ((caller)[1] =~ /^-e?$/ and @_ == 2 and $_[1] eq 'compile') |
|
52
|
0 |
15 |
if (my $env = $ENV{'PERL_PEGEX_AUTO_COMPILE'}) |
|
54
|
0 |
0 |
if ($modules{$package}) |
|
55
|
0 |
0 |
if (my $grammar_file = $package->file) |
|
56
|
0 |
0 |
if (-f $grammar_file) |
|
61
|
0 |
0 |
if (-M $grammar_file < -M $module_file) |
|
76
|
0 |
0 |
unless open GRAMMAR, '<', $grammar_file |
|
83
|
0 |
0 |
unless my $file = $INC{$module} |
|
86
|
0 |
0 |
if ($package->can('start_rules')) |
|
87
|
0 |
0 |
unless $package->start_rules |
|
89
|
0 |
0 |
if ($module eq 'Pegex/Pegex/Grammar.pm') { } |
|
97
|
0 |
0 |
unless open IN, '<', $file |
|
110
|
0 |
0 |
unless open OUT, '>', $file |