| line |
true |
false |
branch |
|
31
|
6 |
0 |
if ($content =~ s/^#\s*EXAMPLE:\s*(.*)\s*$/$self->_slurp_example($1) . "\n";/egmu)
|
|
42
|
4 |
2 |
if (my $file = &first(sub {
|
|
|
2 |
0 |
elsif ($file = $self->zilla->root->child($filename)) { }
|
|
45
|
0 |
4 |
unless open $fh, '<', \$content
|
|
51
|
0 |
2 |
unless -r $file
|
|
59
|
0 |
6 |
if ($self->remove_boiler)
|
|
61
|
0 |
0 |
if $line =~ /^\s*$/u
|
|
62
|
0 |
0 |
if $line =~ m[^#!/usr/bin/perl]u
|
|
63
|
0 |
0 |
if $line =~ m[^#!/usr/bin/env perl]u
|
|
64
|
0 |
0 |
if $line =~ /^use strict;$/u
|
|
65
|
0 |
0 |
if $line =~ /^use warnings;$/u
|
|
66
|
0 |
0 |
if eof $fh
|
|
68
|
4 |
2 |
defined $rest ? :
|