| line |
!l |
l&&!r |
l&&r |
condition |
|
201
|
8 |
0 |
0 |
$line =~ m(\A.*\Wq[qxwr]?\s*([{([#|/])[^})\]#|/]*$)msx and not $line =~ /\A\s*require|use\s/msx |
|
313
|
2 |
4 |
0 |
$statement eq "use" and $module =~ /(parent|base)/msx |
|
334
|
6 |
0 |
0 |
$whitespace ne $EMPTY and $statement eq "require" |
|
412
|
2 |
4 |
0 |
$statement eq "use" and $module eq 'base' || $module eq 'parent' |
|
430
|
4 |
2 |
0 |
$version and not $version =~ /\A$modver_re\z/mosx |
|
465
|
2 |
0 |
0 |
not $self->get_handle and $script |
|
540
|
0 |
0 |
0 |
$HAVE_VERSION and $newver |
|
|
0 |
0 |
0 |
$HAVE_VERSION and $newver and "version"->new($oldver) < $newver |
|
572
|
0 |
0 |
0 |
not $perl_version and $self->get_add_version |
|
585
|
0 |
0 |
0 |
not $self->get_core and $self->is_core($m) |
|
663
|
0 |
0 |
0 |
not $self->get_core and $self->is_core($module) |
|
677
|
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 |
|
182
|
0 |
0 |
8 |
$line =~ /\A\s*(?:my\s*)?\$(?:.*)\s*=\s*<<\s*(["'`])(.+?)\1/msx or $line =~ /\A\s*(?:my\s*)?\$(.*)\s*=\s*<<(\w+)\s*;/msx |
|
248
|
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 |
|
264
|
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 |
|
303
|
2 |
0 |
4 |
$version //= $EMPTY |
|
412
|
0 |
0 |
4 |
$module eq 'base' || $module eq 'parent' |
|
551
|
2 |
0 |
2 |
$m->{'version'} // $EMPTY |
|
576
|
0 |
0 |
0 |
$perl_version // $EMPTY |
|
604
|
0 |
0 |
0 |
$self->get_text or $self->get_raw |
|
643
|
0 |
0 |
0 |
$version // $EMPTY |