Branch Coverage

inc/Pegex/Grammar.pm
Criterion Covered Total %
branch 1 34 2.9


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