| line |
true |
false |
branch |
|
114
|
0 |
1 |
if ($^O eq 'cygwin') { } |
|
127
|
1 |
0 |
unless eval {
do {
require Win32;
Win32::IsWinNT() if 'Win32'->can('IsWinNT')
}
} |
|
129
|
0 |
0 |
if 'Win32'->can('IsWinNT') |
|
131
|
0 |
0 |
unless eval {
do {
require Win32::API;
1
}
} |
|
137
|
0 |
0 |
if -e 'File::Spec'->catfile($loc, $dll) |
|
153
|
1 |
0 |
unless eval {
do {
require Proc::ProcessTable;
1
}
} |
|
165
|
0 |
1 |
if _isReactOS() |
|
167
|
1 |
0 |
unless eval {
do {
require Win32::OLE;
1
}
} |
|
178
|
0 |
0 |
if $wmi |
|
183
|
0 |
0 |
unless $wmi |
|
184
|
0 |
0 |
unless $proc |
|
272
|
0 |
0 |
if ref $class |
|
278
|
0 |
0 |
if (ref $inp eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $inp) { } |
|
|
0 |
0 |
elsif ($argnam[$inx]) { } |
|
291
|
0 |
0 |
unless _import_done() |
|
294
|
0 |
0 |
unless my $mach = $arg{'host'} |
|
298
|
0 |
0 |
if ($status = variant_support_status($variant)) |
|
303
|
0 |
0 |
if ($self = $variant_support{$variant}{'make'}(\%arg)) |
|
340
|
0 |
0 |
unless ref $self |
|
343
|
0 |
0 |
unless exists $$self{$name} |
|
345
|
0 |
0 |
if $name =~ /^_/ |
|
349
|
0 |
0 |
wantarray ? : |
|
384
|
0 |
0 |
if @args % 2 |
|
386
|
0 |
0 |
unless ref $self |
|
392
|
0 |
0 |
unless exists $$self{$name} |
|
394
|
0 |
0 |
unless exists $$mutr{$name} |
|
399
|
0 |
0 |
wantarray ? : |
|
508
|
0 |
0 |
if (exists $variant_support{$_}) { } |
|
515
|
0 |
1 |
if ($idempotent++) { } |
|
518
|
1 |
0 |
unless @vars |
|
520
|
0 |
3 |
unless $variant_support{$try} |
|
584
|
0 |
0 |
unless defined(my $pop = $$proc{'ParentProcessId'}) |
|
587
|
0 |
0 |
unless $prox{$pop} |
|
589
|
0 |
0 |
unless defined $$proc{'CreationDate'} and defined $prox{$pop}{'CreationDate'} and $$proc{'CreationDate'} >= $prox{$pop}{'CreationDate'} |
|
597
|
0 |
0 |
unless $key_found |
|
598
|
0 |
0 |
if (@args) |
|
602
|
0 |
0 |
unless $subs{$pid} |
|
603
|
0 |
0 |
if $listed{$pid} |
|
608
|
0 |
0 |
wantarray ? : |
|
636
|
0 |
0 |
ref $args[0] eq 'HASH' ? : |
|
641
|
0 |
0 |
unless exists $$proc{'ParentProcessId'} |
|
644
|
0 |
0 |
unless defined(my $dad = $subs{$$proc{'ParentProcessId'}}) |
|
645
|
0 |
0 |
unless defined $$dad{'CreationDate'} and defined $$proc{'CreationDate'} |
|
647
|
0 |
0 |
if $$dad{'CreationDate'} > $$proc{'CreationDate'} |
|
650
|
0 |
0 |
unless $bingo |
|
652
|
0 |
0 |
if (@args) { } |
|
653
|
0 |
0 |
exists $subs{$_} ? : |
|
687
|
0 |
3 |
unless my $variant = pop @args |
|
688
|
0 |
3 |
unless exists $variant_support{$variant} |
|
690
|
0 |
3 |
unless _import_done() |
|
723
|
0 |
0 |
if exists $$self{'_xfrm'}{$key} |
|
738
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
if $$self{'elapsed_in_seconds'} |
|
739
|
0 |
0 |
wantarray ? : |
|
756
|
0 |
0 |
if ($_) { } |
|
766
|
0 |
0 |
if wantarray |