| line |
true |
false |
branch |
|
25
|
0 |
0 |
if ($version != $Stable::Module::VERSION) |
|
32
|
0 |
25 |
if ($^O eq 'MSWin32' and defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT') { } |
|
44
|
0 |
25 |
unless ('/root/.cpan/build/Stable-Module-0.08-0/t/../lib/Stable/Module.pm' =~ m( \b Stable[/\\]Module\.pm \z)x) |
|
75
|
0 |
25 |
if ($^O =~ /\A (?:MSWin32|NetWare|symbian|dos) \z/mosx) |
|
84
|
0 |
25 |
if ($^O =~ /\A (?:MSWin32|NetWare|symbian|dos) \z/mosx) { } |
|
93
|
0 |
25 |
if ($^O =~ /\A (?:MSWin32|NetWare|symbian|dos) \z/mosx) |
|
114
|
0 |
25 |
if (exists $re_char{$codepage}) { } |
|
126
|
0 |
25 |
if (exists $re_char{$codepage}) { } |
|
162
|
0 |
9 |
$a > $b ? : |
|
163
|
0 |
25 |
$a gt $b ? : |
|
164
|
9 |
0 |
$a < $b ? : |
|
165
|
25 |
0 |
$a lt $b ? : |
|
169
|
3 |
7 |
unless &$coderef($_) |
|
170
|
3 |
7 |
if &$coderef($_) |
|
171
|
3 |
7 |
if &$coderef($_) |
|
172
|
3 |
7 |
unless &$coderef($_) |
|
177
|
0 |
25 |
if not defined *IO::Handle::say |
|
187
|
0 |
8 |
unless (defined $fullname) |
|
196
|
31 |
132 |
if ($char =~ m[\A [:\\/] \z]mosx) { } |
|
207
|
0 |
8 |
if ($dirname eq '' or $dirname =~ / : \z/mosx) |
|
215
|
3 |
5 |
if (@suffixlist) |
|
221
|
2 |
1 |
if (substr($name_lc, -length($s_lc), length $s_lc) eq $s_lc) |
|
233
|
8 |
0 |
if (wantarray) { } |
|
244
|
0 |
5 |
unless (defined $fullname) |
|
258
|
15 |
61 |
if ($char =~ m[\A [:\\/] \z]mosx) { } |
|
269
|
0 |
5 |
if ($dirname eq '' or $dirname =~ / : \z/mosx) |
|
277
|
2 |
3 |
if (@suffixlist) |
|
283
|
1 |
1 |
if (substr($name_lc, -length($s_lc), length $s_lc) eq $s_lc) |
|
294
|
0 |
5 |
if ($name eq '' and $suffix ne '') |
|
299
|
0 |
5 |
if ($name eq '') |
|
311
|
0 |
2 |
unless (defined $fullname) |
|
319
|
0 |
2 |
if ($basename eq '') |
|
333
|
7 |
0 |
if (scalar @char >= 2) |
|
334
|
3 |
4 |
if ($char[-1] =~ m[\A [\\\/]+ \z]mosx and $char[-2] ne ':') |
|
345
|
0 |
0 |
if (_is_directory($_[0])) { } |
|
|
0 |
0 |
elsif (defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT') { } |
|
351
|
0 |
0 |
if (system("cmd.exe /E:ON /C mkdir $path >NUL $Stable::Module::hide_stderr") == 0) |
|
362
|
0 |
0 |
if ($char =~ m[\A [\\/] \z]mosx) { } |
|
369
|
0 |
0 |
if (@subdir >= 2) |
|
372
|
0 |
0 |
unless (_is_directory($path)) |
|
378
|
0 |
0 |
if (system("mkdir $path >NUL") == 0) |
|
383
|
0 |
0 |
if (exists $INC{'Strict/Perl.pm'}) { } |
|
394
|
0 |
0 |
if (not _is_directory($_[0])) { } |
|
|
0 |
0 |
elsif (defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT') { } |
|
400
|
0 |
0 |
if (system("rmdir /S /Q $root >NUL $Stable::Module::hide_stderr") == 0) |
|
417
|
0 |
0 |
if (system("rmdir $root >NUL") == 0) |
|
422
|
0 |
0 |
if (exists $INC{'Strict/Perl.pm'}) { } |
|
434
|
0 |
0 |
if (system("copy /Y $source $dest >NUL $Stable::Module::hide_stderr") == 0) { } |
|
|
0 |
0 |
elsif (exists $INC{'Strict/Perl.pm'}) { } |
|
449
|
0 |
0 |
if (system("move /Y $source $dest >NUL $Stable::Module::hide_stderr") == 0) { } |
|
|
0 |
0 |
elsif (exists $INC{'Strict/Perl.pm'}) { } |
|
464
|
0 |
0 |
unless {'/', '\\'}->{$_} |
|
465
|
0 |
0 |
if $path =~ / / |
|
472
|
0 |
0 |
if (-e $unknown) { } |
|
|
0 |
0 |
elsif (_MSWin32_5Cended_path($unknown)) { } |
|
482
|
0 |
0 |
if (@_ >= 1 and $_[0] ne '') |
|
483
|
0 |
0 |
if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) |
|
485
|
0 |
0 |
if ($char[-1] =~ / \x5C \z/mosx) |
|
496
|
1 |
3 |
if (&$coderef()) |
|
520
|
0 |
1 |
defined fileno $_[0] ? : |
|
522
|
0 |
1 |
unless @_ |