line |
true |
false |
branch |
38
|
0 |
0 |
if ($f eq 'body') { }
|
|
0 |
0 |
elsif (ref $v eq 'ARRAY') { }
|
|
0 |
0 |
elsif (defined $v and length $v) { }
|
166
|
0 |
0 |
defined $comment ? :
|
187
|
0 |
0 |
if $seen{ref $licence}++
|
190
|
0 |
0 |
if ((ref $licence || '') =~ /^Software::License::(.+)/) { }
|
220
|
0 |
0 |
unless $copyright
|
223
|
0 |
0 |
if ((ref $licence || '') eq 'Software::License::Perl_5') { }
|
|
0 |
0 |
elsif ((ref $licence || '') =~ /^Software::License::(.+)/) { }
|
278
|
0 |
0 |
if ($self->can('_determine_rights_from_rdf'))
|
280
|
0 |
0 |
if (my(@rights) = $self->_determine_rights_from_rdf($f))
|
286
|
0 |
0 |
if (my(@rights) = $self->_determine_rights_from_pod($f))
|
291
|
0 |
0 |
unless $self->rights_for_generated_files->{$f}
|
|
0 |
0 |
if (my(@rights) = @{[] unless $self->rights_for_generated_files->{$f};})
|
296
|
0 |
0 |
if ($f =~ m[\Alib/.*\.pm\z] or $f =~ m[\Abin/[\w_-]+(\.pl|\.PL)?\z] or $f =~ m[\At/.*(\.pm|\.t)\z] or $f eq 'dist.ini')
|
301
|
0 |
0 |
if (my(@rights) = $self->_inherited_rights($f))
|
315
|
0 |
0 |
unless $f =~ /\.(?:pl|pm|pod|t)$/i
|
320
|
0 |
0 |
if $f =~ m[^inc/(.+\.pm)$]i and exists $INC{$1}
|
325
|
0 |
0 |
if (@guesses)
|
328
|
0 |
0 |
/[.?!]$/ ? :
|
329
|
0 |
0 |
unless /^Copyright/i
|
336
|
0 |
0 |
if $copyright and $guesses[0]
|
353
|
0 |
0 |
if $file->exists
|
355
|
0 |
0 |
if $self->DOES('Dist::Inkt::Role::WriteCOPYRIGHT')
|