| line |
!l |
l&&!r |
l&&r |
condition |
|
204
|
8 |
0 |
0 |
$line =~ m(\A.*\Wq[qxwr]?\s*([{([#|/])[^})\]#|/]*$)msx and not $line =~ /\A\s*require|use\s/msx |
|
316
|
2 |
4 |
0 |
$statement eq "use" and $module =~ /(parent|base)/msx |
|
337
|
6 |
0 |
0 |
$whitespace ne $EMPTY and $statement eq "require" |
|
415
|
2 |
4 |
0 |
$statement eq "use" and $module eq 'base' || $module eq 'parent' |
|
433
|
4 |
2 |
0 |
$version and not $version =~ /\A$modver_re\z/mosx |
|
468
|
2 |
0 |
0 |
not $self->get_handle and $script |
|
545
|
0 |
0 |
0 |
$HAVE_VERSION and $newver |
|
|
0 |
0 |
0 |
$HAVE_VERSION and $newver and "version"->new($oldver) < $newver |
|
577
|
0 |
0 |
0 |
not $perl_version and $self->get_add_version |
|
590
|
0 |
0 |
0 |
not $self->get_core and $self->is_core($m) |
|
668
|
0 |
0 |
0 |
not $self->get_core and $self->is_core($module) |
|
682
|
0 |
0 |
0 |
$m and $m->{'version'} |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
79
|
0 |
2 |
0 |
$options{'core'} //= $TRUE |
|
80
|
0 |
0 |
2 |
$options{'include_require'} //= $FALSE |
|
81
|
1 |
1 |
0 |
$options{'add_version'} //= $TRUE |
|
82
|
0 |
2 |
0 |
$options{'min_core_version'} //= $DEFAULT_MIN_CORE_VERSION |
|
185
|
0 |
0 |
8 |
$line =~ /\A\s*(?:my\s*)?\$(?:.*)\s*=\s*<<\s*(["'`])(.+?)\1/msx or $line =~ /\A\s*(?:my\s*)?\$(.*)\s*=\s*<<(\w+)\s*;/msx |
|
251
|
0 |
0 |
8 |
$line =~ /print(?:\s+|\s+\S+\s+)\<\<\s*(["'`])(.+?)\1/msx or $line =~ /print(\s+|\s+\S+\s+)\<\<(\w+)/msx |
|
|
0 |
0 |
8 |
$line =~ /print(?:\s+|\s+\S+\s+)\<\<\s*(["'`])(.+?)\1/msx or $line =~ /print(\s+|\s+\S+\s+)\<\<(\w+)/msx or $line =~ /return(\s+)\<\<(\w+)/msx |
|
267
|
0 |
0 |
8 |
$line =~ /\$\S+\s*=\s*(")([^"\\]|(\\.))*\z/msx or $line =~ /\$\S+\s*=\s*(')([^'\\]|(\\.))*\z/msx |
|
|
0 |
0 |
8 |
$line =~ /\$\S+\s*=\s*(")([^"\\]|(\\.))*\z/msx or $line =~ /\$\S+\s*=\s*(')([^'\\]|(\\.))*\z/msx or $line =~ /print\s+(")([^"\\]|(\\.))*\z/msx |
|
|
0 |
0 |
8 |
$line =~ /\$\S+\s*=\s*(")([^"\\]|(\\.))*\z/msx or $line =~ /\$\S+\s*=\s*(')([^'\\]|(\\.))*\z/msx or $line =~ /print\s+(")([^"\\]|(\\.))*\z/msx or $line =~ /print\s+(')([^'\\]|(\\.))*\z/msx |
|
306
|
2 |
0 |
4 |
$version //= $EMPTY |
|
415
|
0 |
0 |
4 |
$module eq 'base' || $module eq 'parent' |
|
535
|
6 |
0 |
0 |
$newver //= $EMPTY |
|
556
|
2 |
0 |
2 |
$m->{'version'} // $EMPTY |
|
559
|
2 |
0 |
0 |
$newver // $EMPTY |
|
581
|
0 |
0 |
0 |
$perl_version // $EMPTY |
|
609
|
0 |
0 |
0 |
$options{'json'} or $self->get_json |
|
|
0 |
0 |
0 |
$options{'text'} or $self->get_text |
|
|
0 |
0 |
0 |
$options{'text'} or $self->get_text or $self->get_raw |
|
648
|
0 |
0 |
0 |
$version // $EMPTY |