| line |
true |
false |
branch |
|
30
|
3 |
1 |
unless -d $be |
|
40
|
0 |
0 |
if (-d $asset) |
|
55
|
0 |
0 |
if (-d $asset) |
|
61
|
0 |
0 |
if $asset =~ /ado\-(shm|wal)/u |
|
63
|
0 |
0 |
if ($asset =~ /ado\.sqlite/u and -s $asset_path) |
|
75
|
0 |
0 |
if (-d $asset) |
|
87
|
0 |
0 |
if (-d $asset) |
|
101
|
0 |
0 |
if $self->install_base |
|
112
|
0 |
0 |
if $verbose and $dryrun |
|
113
|
0 |
0 |
rmdir $_ ? : |
|
|
0 |
0 |
unless $dryrun |
|
143
|
0 |
0 |
if -d 'blib' |
|
204
|
0 |
0 |
unless (eval {
do {
require Perl::Tidy
}
}) |
|
213
|
0 |
0 |
if -f $file and $file =~ m[(\.pl|/ado|\.pm|ado.*?\.conf|\.t)$]ux |
|
218
|
0 |
0 |
if ($self->verbose) |
|
225
|
0 |
0 |
if $file =~ /\.bak$/u |
|
242
|
0 |
0 |
unless my($log_dir) = @_ |
|
252
|
0 |
0 |
if ($self->dist_version_from =~ /Ado\.pm$/u) { } |
|
262
|
0 |
0 |
unless eval {
do {
require Pod::Markdown
}
} |
|
267
|
0 |
0 |
if (open my $out, '>', $readme_md) { } |