| line |
true |
false |
branch |
|
291
|
0 |
0 |
if $phase eq 'configure' |
|
297
|
0 |
0 |
if ($phase eq 'configure') |
|
301
|
0 |
0 |
if ($phase ne 'active') |
|
310
|
0 |
1 |
if ($phase ne 'configure') |
|
316
|
1 |
0 |
unless defined $ENV{'MUSICROOM_DIR'} |
|
324
|
0 |
0 |
unless $dir =~ m[/$] |
|
329
|
0 |
0 |
unless -r $conf_file |
|
333
|
0 |
0 |
unless defined $fh |
|
341
|
0 |
0 |
if $line =~ /^\s*$/ |
|
342
|
0 |
0 |
if $line =~ /^\s*#/ |
|
343
|
0 |
0 |
if ($line =~ /^\s*(version)\s*\=\s*\"([^\"]*)\"/) |
|
347
|
0 |
0 |
if $config{'version'} ne '0.01' |
|
350
|
0 |
0 |
if ($line =~ /^\s*(\w+)\s*\=\s*\"([^\"]*)\"/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*(\w+)\s*\=\s*\'([^\']*)\'/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*(\w+)\s*\=\s*\|([^\|]*)\|/) { } |
|
|
0 |
0 |
elsif ($line =~ m[^\s*(\w+)\s*\=\s*/([^/]*)/]) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*(\w+)\s*\=\s*(\S.+)/) { } |
|
377
|
0 |
0 |
unless $got_version |
|
387
|
0 |
0 |
if $phase ne 'configure' |
|
390
|
0 |
0 |
unless -d $dir |
|
393
|
0 |
0 |
unless -w $dir |
|
396
|
0 |
0 |
if -r $conf_file |
|
460
|
0 |
0 |
unless defined $config_vars{$var}{'default_value'} |
|
462
|
0 |
0 |
if defined $config_vars{$var}{'before_set_fun'} |
|
465
|
0 |
0 |
if defined $config_vars{$var}{'after_set_fun'} |
|
475
|
0 |
0 |
if (defined $config_vars{$var}{'configure'}) |
|
477
|
0 |
0 |
unless defined $called_one |
|
497
|
0 |
0 |
unless (defined $config{$var}) |
|
504
|
0 |
0 |
if ($val =~ /\"/ and $val =~ /\'/ and $val =~ /\|/ and $val =~ m[/]) |
|
520
|
0 |
0 |
if lc $var eq 'dir' |
|
524
|
0 |
0 |
unless (defined $config{$var}) |
|
526
|
0 |
0 |
unless defined $silent and $silent |
|
535
|
0 |
0 |
unless -r $conf_file |
|
540
|
0 |
0 |
unless defined $fh |
|
546
|
0 |
0 |
if $line =~ /^\s*$/ |
|
547
|
0 |
0 |
if $line =~ /^\s*#/ |
|
548
|
0 |
0 |
if ($line =~ /^\s*(\w+)\s*\=\s*\"([^\"]*)\"/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*(\w+)\s*\=\s*\'([^\']*)\'/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*(\w+)\s*\=\s*\|([^\|]*)\|/) { } |
|
|
0 |
0 |
elsif ($line =~ m[^\s*(\w+)\s*\=\s*/([^/]*)/]) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*(\w+)\s*\=\s*(\S.+)/) { } |
|
579
|
0 |
0 |
unless (defined $fh) |
|
595
|
0 |
0 |
if (not $val =~ /\"/) { } |
|
|
0 |
0 |
elsif (not $val =~ /\'/) { } |
|
|
0 |
0 |
elsif (not $val =~ /\|/) { } |
|
|
0 |
0 |
elsif (not $val =~ m[/]) { } |
|
623
|
0 |
0 |
if (not defined $var) { } |
|
|
0 |
0 |
elsif (not defined $config_vars{$var}) { } |
|
|
0 |
0 |
elsif (not defined $config_vars{$var}{'value_type'} or $config_vars{$var}{'value_type'} eq 'text') { } |
|
637
|
0 |
0 |
unless defined $name |
|
656
|
0 |
0 |
unless defined $dbfile |
|
659
|
0 |
0 |
unless defined $databases{$part} |
|
679
|
0 |
0 |
if $col eq 'id' |
|
680
|
0 |
0 |
if not defined $id and $col eq 'name' |
|
686
|
0 |
0 |
unless defined $id |
|
692
|
0 |
0 |
unless (defined $table) |
|
713
|
0 |
0 |
unless (defined $databases{$part} and defined $databases{$part}{'handle'}) |
|
719
|
0 |
0 |
if (ref $cols ne 'ARRAY') |
|
724
|
0 |
0 |
if ($#{$cols;} < 0) |
|
731
|
0 |
0 |
if (defined $where_clause and $where_clause ne '') |
|
738
|
0 |
0 |
unless (defined $sth) |
|
749
|
0 |
0 |
if not defined $ret or ref $ret ne 'ARRAY' or not @{$ret;} |
|
762
|
0 |
0 |
unless (defined $databases{$part} and defined $databases{$part}{'handle'}) |
|
768
|
0 |
0 |
if (ref $cols ne 'ARRAY') |
|
773
|
0 |
0 |
if (ref $values ne 'ARRAY') |
|
778
|
0 |
0 |
if ($#{$cols;} < 0) |
|
783
|
0 |
0 |
if ($#{$cols;} != $#{$values;}) |
|
798
|
0 |
0 |
if ($count != 1) |
|
811
|
0 |
0 |
unless (defined $databases{$part} and defined $databases{$part}{'handle'}) |
|
825
|
0 |
0 |
unless (defined $databases{$part} and defined $databases{$part}{'handle'}) |
|
832
|
0 |
0 |
if lc $string eq 'true' or lc $string eq 'false' |
|
844
|
0 |
0 |
if (defined $part) |
|
846
|
0 |
0 |
if defined $databases{$part}{'handle'} |