Condition Coverage

File:blib/lib/Database/BI/Controller/Dashboard.pm
Coverage:73.0%

line%coveragecondition
82100
Adec
00
11
$MESSAGES{$key} // (return "Internal error: unknown message key '${key}'")
11780
ABCDdec
00000
00011
001X1
01XX1
1XXX1
$host eq "localhost" or $host =~ /\A127\./u or $host eq "0.0.0.0" or $host eq "::1"
14650
Adec
00
11
$conf->{'platform'} // "web"
14750
Adec
00
11
$conf->{'language'} // "en"
162100
Adec
00
11
$self->req->headers->accept_language // ""
16967
ABdec
000
011
1X1
$lang //= $default
17550
Adec
00
11
$self->app->config->{'platform'} // "web"
19650
Adec
00
11
$self->app->config->{'data_dir'} // "data"
21950
Adec
00
11
$self->app->config->{'data_dir'} // "data"
22233
ABdec
0X0
100
111
$src and not $@
22650
ABCdec
0XX0
10X0
1100
1111
defined $file and -f $file and $file->basename =~ /$EXT_RE/u
23033
ABdec
0X0
100
111
$src and not $@
23733
ABdec
0X0
100
111
$src and not $@
274100
ABdec
0X0
100
111
$c && $all{$c}
316100
Adec
00
11
$col // ""
100
ABCdec
0XX0
10X0
1100
1111
length($col // "") and defined $op and length $op
317100
Adec
00
11
$val //= ""
320100
Adec
00
11
$_->{$col} // ""
35050
Adec
00
11
$self->every_param("f") // []
354100
Adec
00
11
$col // ""
75
ABCdec
0XX0
10X0
1100
1111
length($col // "") and defined $op and length $op
355100
Adec
00
11
$val // ""
38350
Adec
00
11
$row->{$right_key} // ""
38467
ABdec
000
011
1X1
$right_idx{$k} //= $row
40550
Adec
00
11
$left_row->{$left_key} // ""
406100
Adec
00
11
$right_idx{$k} // {}
44850
Adec
00
11
$row->{$_} // ""
465100
Adec
00
11
$_ // ""
479100
Adec
00
11
$combine_specs // []
499100
ABCdec
0000
0011
01X1
1XX1
$entry eq "." or $entry eq ".." or $entry =~ /\A\./u
501100
ABdec
0X0
100
111
$want_files and $entry =~ /$EXT_RE/u
540100
ABdec
000
011
1X1
$@ or not $dbh
582100
Adec
00
11
$self->param("l") // ""
58850
Adec
00
11
$left_recs //= []
59525
ABCdec
0XX0
10X0
1100
1111
defined $right_spec and defined $left_key and defined $right_key
60050
Adec
00
11
eval {         do {         $right_src->fetch_all } } // []
61450
Adec
00
11
$self->every_param("c") // []
62050
Adec
00
11
eval {         do {         $csrc->fetch_all } } // []
81067
ABdec
0X0
100
111
defined $table and $table =~ /$TABLE_NAME_RE/u
89350
Adec
00
11
($self->param("path") // $ENV{'HOME'}) // "/"
67
ABdec
000
011
1X1
$self->param("path") // $ENV{'HOME'}
895100
ABdec
0X0
100
111
defined $dir and -d $dir
1019100
ABCdec
0XX0
10X0
1100
1111
defined $file and -f $file and $file->basename =~ /$EXT_RE/u
1109100
Adec
00
11
$self->param("url") // ""
1110100
Adec
00
11
$self->param("table_index") // 0
113167
ABdec
000
011
1X1
$@ or not $source
50
Adec
00
11
$@ // "unknown error"
113450
Adec
00
11
$@ // "empty result"
1207100
ABdec
0X0
100
111
defined $table_name and $table_name =~ /$TABLE_NAME_RE/u
120850
Adec
00
11
$self->app->config->{'data_dir'} // "data"
121550
ABCdec
0XX0
10X0
1100
1111
defined $file and -f $file and $file->basename =~ /$EXT_RE/u
122550
Adec
00
11
eval {         do {         $source->fetch_all } } // []
1285100
Adec
00
11
$self->param("l") // ""
130050
Adec
00
11
$left_recs //= []
130925
ABCdec
0XX0
10X0
1100
1111
defined $right_spec and defined $left_key and defined $right_key
131850
Adec
00
11
eval {         do {         $right_src->fetch_all } } // []
141450
Adec
00
11
$self->param("l") // ""
142950
Adec
00
11
$left_recs //= []
144050
Adec
00
11
eval {         do {         $csrc->fetch_all } } // []
1540100
Adec
00
11
$self->param("format") // "csv"
161950
Adec
00
11
$self->param("dir") // ""
162050
Adec
00
11
$self->param("filename") // ""
1623100
ABdec
0X0
100
111
defined $dest_dir and -d $dest_dir
1633100
ABdec
0X0
100
111
$filename and $filename =~ /\.sql\z/iu
100
ABdec
0X0
100
111
$filename and $filename =~ /\.csv\z/iu
170450
Adec
00
11
($self->param("path") // $ENV{'HOME'}) // "/"
67
ABdec
000
011
1X1
$self->param("path") // $ENV{'HOME'}
1706100
ABdec
0X0
100
111
defined $dir and -d $dir
1772100
ABdec
0X0
100
111
defined $path and length $path
1782100
ABCdec
0XX0
10X0
1100
1111
defined $file and -f $file and $file->basename =~ /$EXT_RE/u
183967
ABdec
0X0
100
111
$upload and $upload->filename
185167
ABdec
000
011
1X1
$self->req->is_limit_exceeded or $upload->size > $MAX_UPLOAD_BYTES
186167
ABdec
0X0
100
111
$filename and $filename =~ /$EXT_RE/u