| line |
true |
false |
branch |
|
19
|
0 |
0 |
unless my $filename = $self->file |
|
21
|
0 |
0 |
unless open TEXT, $filename |
|
28
|
0 |
0 |
unless my $text = $self->text |
|
32
|
0 |
0 |
unless $self->start_rules |
|
41
|
0 |
0 |
if ((caller)[1] =~ /^-e?$/ and @_ == 2 and $_[1] eq 'compile') |
|
45
|
0 |
4 |
if (my $env = $ENV{'PERL_PEGEX_AUTO_COMPILE'}) |
|
47
|
0 |
0 |
if ($modules{$package}) |
|
48
|
0 |
0 |
if (my $grammar_file = $package->file) |
|
49
|
0 |
0 |
if (-f $grammar_file) |
|
54
|
0 |
0 |
if (-M $grammar_file < -M $module_file) |
|
69
|
0 |
0 |
unless open GRAMMAR, $grammar_file |
|
76
|
0 |
0 |
unless my $file = $INC{$module} |
|
79
|
0 |
0 |
if ($package->can('start_rules')) |
|
80
|
0 |
0 |
unless $package->start_rules |
|
82
|
0 |
0 |
if ($module eq 'Pegex/Pegex/Grammar.pm') { } |
|
90
|
0 |
0 |
unless open IN, $file |
|
103
|
0 |
0 |
unless open OUT, '>', $file |