| line |
true |
false |
branch |
|
16
|
0 |
25 |
if $] < "5.006" |
|
26
|
0 |
0 |
if ($version != $Stable::Module::VERSION) |
|
34
|
0 |
25 |
if ($^O eq 'MSWin32' and defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT') { } |
|
47
|
0 |
25 |
unless ("/root/.cpan/build/Stable-Module-0.11-0/t/../lib/Stable/Module.pm" =~ m( \b Stable[/\\]Module\.pm \z)x) |
|
78
|
0 |
25 |
if ($^O =~ /\A (?:MSWin32|NetWare|symbian|dos) \z/mosx) |
|
87
|
0 |
25 |
if ($^O =~ /\A (?:MSWin32|NetWare|symbian|dos) \z/mosx) { } |
|
96
|
0 |
25 |
if ($^O =~ /\A (?:MSWin32|NetWare|symbian|dos) \z/mosx) |
|
117
|
0 |
25 |
if (exists $re_char{$codepage}) { } |
|
129
|
0 |
25 |
if (exists $re_char{$codepage}) { } |
|
165
|
0 |
9 |
$a > $b ? : |
|
166
|
0 |
25 |
$a gt $b ? : |
|
167
|
9 |
0 |
$a < $b ? : |
|
168
|
25 |
0 |
$a lt $b ? : |
|
172
|
3 |
7 |
unless &$coderef($_) |
|
173
|
3 |
7 |
if &$coderef($_) |
|
174
|
3 |
7 |
if &$coderef($_) |
|
175
|
3 |
7 |
unless &$coderef($_) |
|
180
|
0 |
25 |
if not defined *IO::Handle::say |
|
192
|
0 |
8 |
unless (defined $fullname) |
|
201
|
31 |
132 |
if ($char =~ m[\A [:\\/] \z]mosx) { } |
|
212
|
0 |
8 |
if ($dirname eq "" or $dirname =~ / : \z/mosx) |
|
220
|
3 |
5 |
if (@suffixlist) |
|
226
|
2 |
1 |
if (substr($name_lc, -length($s_lc), length $s_lc) eq $s_lc) |
|
238
|
8 |
0 |
if (wantarray) { } |
|
250
|
0 |
5 |
unless (defined $fullname) |
|
264
|
15 |
61 |
if ($char =~ m[\A [:\\/] \z]mosx) { } |
|
275
|
0 |
5 |
if ($dirname eq "" or $dirname =~ / : \z/mosx) |
|
283
|
2 |
3 |
if (@suffixlist) |
|
289
|
1 |
1 |
if (substr($name_lc, -length($s_lc), length $s_lc) eq $s_lc) |
|
300
|
0 |
5 |
if ($name eq "" and $suffix ne "") |
|
305
|
0 |
5 |
if ($name eq "") |
|
318
|
0 |
2 |
unless (defined $fullname) |
|
326
|
0 |
2 |
if ($basename eq "") |
|
341
|
7 |
0 |
if (scalar @char >= 2) |
|
342
|
3 |
4 |
if ($char[-1] =~ m[\A [\\\/]+ \z]mosx and $char[-2] ne ":") |
|
354
|
0 |
0 |
if (_is_directory($_[0])) { } |
|
|
0 |
0 |
elsif (defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT') { } |
|
360
|
0 |
0 |
if (system("cmd.exe /E:ON /C mkdir $path >NUL $Stable::Module::hide_stderr") == 0) |
|
371
|
0 |
0 |
if ($char =~ m[\A [\\/] \z]mosx) { } |
|
378
|
0 |
0 |
if (@subdir >= 2) |
|
381
|
0 |
0 |
unless (_is_directory($path)) |
|
387
|
0 |
0 |
if (system("mkdir $path >NUL") == 0) |
|
392
|
0 |
0 |
if (exists $INC{'Strict/Perl.pm'}) { } |
|
404
|
0 |
0 |
if (not _is_directory($_[0])) { } |
|
|
0 |
0 |
elsif (defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT') { } |
|
410
|
0 |
0 |
if (system("rmdir /S /Q $root >NUL $Stable::Module::hide_stderr") == 0) |
|
427
|
0 |
0 |
if (system("rmdir $root >NUL") == 0) |
|
432
|
0 |
0 |
if (exists $INC{'Strict/Perl.pm'}) { } |
|
445
|
0 |
0 |
if (system("copy /Y $source $dest >NUL $Stable::Module::hide_stderr") == 0) { } |
|
|
0 |
0 |
elsif (exists $INC{'Strict/Perl.pm'}) { } |
|
461
|
0 |
0 |
if (system("move /Y $source $dest >NUL $Stable::Module::hide_stderr") == 0) { } |
|
|
0 |
0 |
elsif (exists $INC{'Strict/Perl.pm'}) { } |
|
477
|
0 |
0 |
unless {"/", "\\"}->{$_} |
|
478
|
0 |
0 |
if $path =~ / / |
|
486
|
0 |
0 |
if (-e $unknown) { } |
|
|
0 |
0 |
elsif (_MSWin32_5Cended_path($unknown)) { } |
|
497
|
0 |
0 |
if (@_ >= 1 and $_[0] ne "") |
|
498
|
0 |
0 |
if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) |
|
500
|
0 |
0 |
if ($char[-1] =~ / \x5C \z/mosx) |
|
512
|
1 |
3 |
if (&$coderef()) |
|
539
|
0 |
1 |
defined fileno $_[0] ? : |
|
541
|
0 |
1 |
unless @_ |