| line |
true |
false |
branch |
|
41
|
0 |
10 |
unless ($file = delete $input{'filename'})
|
|
43
|
0 |
0 |
if $App::podweaver::log->is_error
|
|
47
|
0 |
10 |
unless ($weaver = delete $input{'weaver'})
|
|
49
|
0 |
0 |
if $App::podweaver::log->is_error
|
|
61
|
0 |
10 |
unless ($ppi_document = 'PPI::Document'->new(\$perl))
|
|
63
|
0 |
0 |
if $App::podweaver::log->is_error
|
|
73
|
2 |
8 |
$ppi_document->find('PPI::Statement::End') && grep({$_->find_first('PPI::Token::Pod');} @{$ppi_document->find('PPI::Statement::End');}) ? :
|
|
77
|
3 |
7 |
unless $ppi_document->find('PPI::Token::Pod')
|
|
80
|
0 |
10 |
if ($ppi_document->serialize =~ /^=[a-z]/m)
|
|
83
|
0 |
0 |
if $App::podweaver::log->is_error
|
|
105
|
0 |
10 |
if ($module_info and defined $module_info->version) { }
|
|
|
10 |
0 |
elsif (defined $input{'dist_version'}) { }
|
|
113
|
0 |
10 |
if $App::podweaver::log->is_warning
|
|
118
|
0 |
0 |
if $App::podweaver::log->is_warning
|
|
128
|
0 |
10 |
if $App::podweaver::log->is_error and not $pod_document
|
|
134
|
0 |
0 |
if $App::podweaver::log->is_error
|
|
139
|
0 |
10 |
unless $pod_document
|
|
146
|
3 |
7 |
unless $end_elem
|
|
161
|
3 |
7 |
unless ($end)
|
|
167
|
5 |
5 |
if ($pod_after_end) { }
|
|
176
|
3 |
7 |
if ($perl eq $new_perl)
|
|
178
|
0 |
3 |
if $App::podweaver::log->is_info
|
|
183
|
7 |
0 |
$write_to_dot_new ? :
|
|
186
|
0 |
7 |
unless ($write_to_dot_new or $no_backup)
|
|
192
|
0 |
7 |
if $App::podweaver::log->is_debug
|
|
196
|
7 |
0 |
$write_to_dot_new ? :
|
|
197
|
0 |
7 |
unless ($fh)
|
|
199
|
0 |
0 |
if $App::podweaver::log->is_error
|
|
219
|
2 |
0 |
if (-r ($meta_file = 'File::Spec'->catfile($dist_root, 'META.json')) or -r ($meta_file = 'File::Spec'->catfile($dist_root, 'META.yml'))) { }
|
|
222
|
0 |
2 |
if $App::podweaver::log->is_debug
|
|
228
|
0 |
0 |
if $App::podweaver::log->is_warning
|
|
233
|
2 |
0 |
if ($dist_info->{'meta'})
|
|
240
|
1 |
1 |
if $options{'antispam'}
|
|
242
|
0 |
2 |
if $App::podweaver::log->is_debug
|
|
245
|
0 |
2 |
if (@licenses != 1)
|
|
247
|
0 |
0 |
if $App::podweaver::log->is_error
|
|
278
|
0 |
2 |
unless ($licenses{$license})
|
|
280
|
0 |
0 |
if $App::podweaver::log->is_error
|
|
288
|
0 |
2 |
unless (eval "use $class; 1")
|
|
290
|
0 |
0 |
if $App::podweaver::log->is_error
|
|
299
|
0 |
2 |
if $App::podweaver::log->is_debug
|
|
314
|
0 |
0 |
if (-r ($config_file = 'File::Spec'->catfile($dist_root, 'weaver.ini')))
|
|
316
|
0 |
0 |
if $App::podweaver::log->is_debug
|
|
322
|
0 |
0 |
if $App::podweaver::log->is_warning
|
|
358
|
0 |
0 |
if $App::podweaver::log->is_notice
|
|
379
|
0 |
0 |
unless my $scheme = $File::HomeDir::IMPLEMENTED_BY
|
|
381
|
0 |
0 |
if ($scheme->isa('File::HomeDir::Darwin') or $scheme->isa('File::HomeDir::Windows')) { }
|
|
|
0 |
0 |
elsif ($scheme->isa('File::HomeDir::Unix')) { }
|
|
408
|
0 |
0 |
unless $config_dir = $self->_config_dir
|
|
420
|
0 |
0 |
unless $config_file and -e $config_file
|
|
421
|
0 |
0 |
unless $config = 'Config::Tiny'->read($config_file)
|