| line |
true |
false |
branch |
|
314
|
0 |
0 |
defined $_[0] ? : |
|
315
|
0 |
0 |
defined $_[0] ? : |
|
316
|
0 |
0 |
defined $_[0] ? : |
|
317
|
0 |
0 |
defined $_[0] ? : |
|
318
|
0 |
0 |
defined $_[0] ? : |
|
319
|
0 |
0 |
defined $_[0] ? : |
|
340
|
0 |
0 |
if -e $path |
|
344
|
0 |
0 |
if -e join('/', $SHARED_LOCAL_BIN, $OS_TYPE, $MACHINE_TYPE, $name) |
|
346
|
0 |
0 |
if -e join('/', $SHARED_LOCAL_BIN, $OS_TYPE, $name) |
|
348
|
0 |
0 |
if -e $SHARED_LOCAL_BIN . '/' . $name |
|
350
|
0 |
0 |
if -e join('/', $SHARED_BIN, $OS_TYPE, $MACHINE_TYPE, $name) |
|
352
|
0 |
0 |
if -e join('/', $SHARED_BIN, $OS_TYPE, $name) |
|
354
|
0 |
0 |
if -e $SHARED_BIN . '/' . $name |
|
360
|
0 |
0 |
if -x $path |
|
384
|
0 |
0 |
if (ref $config ne 'HASH') |
|
386
|
0 |
0 |
if (ref $param eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($param =~ /\S\s\S/) { } |
|
389
|
0 |
0 |
if (-e $file) |
|
394
|
0 |
0 |
if ($arg[$_] eq '-i') |
|
410
|
0 |
0 |
if (ref $conf1 ne 'HASH') |
|
411
|
0 |
0 |
if (ref $conf2 ne 'HASH') |
|
429
|
5 |
0 |
if -f $file |
|
433
|
0 |
0 |
if (-f "$SHARED_LOCAL_SYS/$file") { } |
|
|
0 |
0 |
elsif (-f "$SHARED_LOCAL_INI/$file") { } |
|
442
|
0 |
0 |
if (-f "$SHARED_SYS/$file") { } |
|
|
0 |
0 |
elsif (-f "$SHARED_INI/$file") { } |
|
|
0 |
0 |
elsif (defined $ENV{'UPLUGHOME'} and -f "$ENV{'UPLUGHOME'}/$file") { } |
|
|
0 |
0 |
elsif (defined $ENV{'UPLUGHOME'} and -f "$ENV{'UPLUGHOME'}/systems/$file") { } |
|
|
0 |
0 |
elsif (defined $ENV{'UPLUGHOME'} and -f "$ENV{'UPLUGHOME'}/ini/$file") { } |
|
487
|
0 |
5 |
unless -f $file |
|
517
|
0 |
0 |
if ($file) |
|
524
|
0 |
0 |
if ($file) { } |
|
552
|
5 |
0 |
unless defined $ENV{'UPLUGHOME'} |
|
556
|
0 |
5 |
if (defined $ENV{'UPLUGCONFIG'}) { } |
|
590
|
0 |
5 |
if (ref $input eq 'HASH') |
|
592
|
0 |
0 |
if (ref $$input{$i} eq 'HASH') |
|
593
|
0 |
0 |
if (exists $$input{$i}{'stream name'}) |
|
600
|
0 |
5 |
if (ref $output eq 'HASH') |
|
602
|
0 |
0 |
if (ref $$output{$i} eq 'HASH') |
|
603
|
0 |
0 |
if (exists $$output{$i}{'stream name'}) |
|
618
|
0 |
0 |
if (ref $name eq 'HASH') |
|
622
|
0 |
0 |
if (exists $Uplug::Config::NamedIO{$name}) |
|
624
|
0 |
0 |
if (ref $conf eq 'HASH') |
|
626
|
0 |
0 |
if (exists $$spec{$_}) |
|
665
|
0 |
5 |
if (@_ == 1 and $_[0] =~ /\S\s\S/) |
|
671
|
5 |
0 |
if (ref $flags ne 'HASH') |
|
674
|
5 |
0 |
if (ref $flags ne 'HASH') |
|
681
|
0 |
0 |
if ($f =~ /^\-/) { } |
|
683
|
0 |
0 |
if (exists $$flags{$f}) |
|
691
|
0 |
0 |
if (@_ and not $_[0] =~ /^\-/) |
|
711
|
0 |
0 |
if (ref $config ne 'HASH') |
|
713
|
0 |
0 |
if (ref $$config{$_} ne 'HASH') |
|
728
|
10 |
0 |
if (ref $config eq 'HASH') { } |
|
743
|
10 |
0 |
unless (-f $file) |
|
744
|
0 |
10 |
if (-f 'ini/' . $file) { } |
|
|
5 |
5 |
elsif (-f $SHARED_HOME . '/ini/' . $file) { } |
|
|
0 |
5 |
elsif (defined $ENV{'UPLUGHOME'} and -f $ENV{'UPLUGHOME'} . '/' . $file) { } |
|
|
0 |
5 |
elsif (defined $ENV{'UPLUGHOME'} and -f $ENV{'UPLUGHOME'} . '/ini/' . $file) { } |
|
757
|
5 |
5 |
unless (-f $file) |
|
759
|
5 |
0 |
if (ref $config eq 'HASH') |
|
781
|
0 |
0 |
unless (-d $dir) |
|
797
|
0 |
0 |
unless ref $config eq 'HASH' |
|
798
|
0 |
0 |
if (ref $$config{'module'} eq 'HASH') |
|
802
|
0 |
0 |
if (ref $$config{'arguments'} eq 'HASH') |
|
803
|
0 |
0 |
if (ref $$config{'arguments'}{'shortcuts'} eq 'HASH') |
|
810
|
0 |
0 |
if (ref $$config{'module'} eq 'HASH') |
|
811
|
0 |
0 |
if (ref $$config{'module'}{'submodules'} eq 'ARRAY') |
|
819
|
0 |
0 |
if (ref $$config{'input'} eq 'HASH') |
|
825
|
0 |
0 |
if (ref $$config{'output'} eq 'HASH') |
|
833
|
0 |
0 |
if (ref $$config{'module'} eq 'HASH') |
|
835
|
0 |
0 |
if (exists $$config{'module'}{'stdin'}) |
|
838
|
0 |
0 |
if (exists $$config{'module'}{'stdout'}) |