| line |
true |
false |
branch |
|
87
|
0 |
761 |
if 0 == scalar @_ |
|
88
|
0 |
761 |
if 1 < scalar @_ |
|
90
|
616 |
145 |
if ('HASH' eq ref $arg) { } |
|
|
145 |
0 |
elsif ('' eq ref $arg) { } |
|
112
|
0 |
47 |
if 0 == scalar @_ |
|
113
|
0 |
47 |
if 1 < scalar @_ |
|
115
|
0 |
47 |
unless "" eq ref $arg |
|
117
|
0 |
47 |
unless $arg =~ m[
\A
\s*
I/O \s Timings:
(
(
\s+
(?: read | write )
=
\d+(\.\d+)?
)+
|
\s+
( local | shared/local | shared | temp )
(
\s+
(?: read | write )
=
\d+(\.\d+)?
)+
(
, \s+
( local | shared/local | shared | temp )
(
\s+
(?: read | write )
=
\d+(\.\d+)?
)+
)*
)
\s*
\z
]msux |
|
153
|
0 |
47 |
if 0 == scalar @matching |
|
175
|
0 |
139 |
unless $self->{'data'} |
|
176
|
0 |
139 |
if 0 == scalar keys %{$$self{"data"};} |
|
179
|
264 |
153 |
unless my $x = $self->{'data'}{$type} |
|
181
|
0 |
153 |
if 0 == scalar @elements |
|
184
|
0 |
139 |
if 0 == scalar @parts |
|
186
|
80 |
59 |
unless my $T = $self->{'data'}{'timings'} |
|
221
|
321 |
191 |
unless defined(my $t = $self->{'data'}{$type}) |
|
223
|
382 |
313 |
unless defined(my $val = $t->{$subtype}) |
|
227
|
1 |
127 |
if 0 == scalar keys %{$ret;} |
|
239
|
13 |
2701 |
if 0 < scalar @_ |
|
273
|
0 |
1848 |
$type eq 'timings' ? : |
|
274
|
0 |
1848 |
$type eq 'timings' ? : |
|
278
|
6001 |
159 |
unless my $val = $in->{$in_key} |
|
279
|
0 |
159 |
if 0 == $val |
|
287
|
224 |
44 |
if $in->{$key} == 0 |
|
288
|
43 |
1 |
if ($key =~ /Read/u) { } |
|
295
|
43 |
573 |
if (0 < scalar keys %{$T;}) |
|
316
|
43 |
129 |
$type eq 'old' ? : |
|
323
|
43 |
129 |
if ($in->{$read_key} // 0) + 0 > 0 |
|
324
|
1 |
171 |
if ($in->{$write_key} // 0) + 0 > 0 |
|
325
|
129 |
43 |
if 0 == scalar @for_type |
|
328
|
0 |
43 |
if 0 == scalar keys %parts |
|
330
|
5 |
38 |
if (exists $in->{'Local I/O Read Time'}) { } |
|
|
8 |
30 |
elsif (exists $in->{'Temp I/O Read Time'}) { } |
|
336
|
10 |
5 |
unless $parts{$type} |
|
347
|
8 |
8 |
unless $parts{$type} |
|
348
|
8 |
0 |
$type eq 'old' ? : |
|
384
|
0 |
145 |
unless $in =~ /
\A
\s*
Buffers:
\s+
(
$single_type_re
(?:
, \s+
$single_type_re
)*
)
\s*
\z
/msux |
|
425
|
0 |
8 |
unless "Pg::Explain::Buffers" eq ref $left |
|
426
|
0 |
8 |
unless ("Pg::Explain::Buffers" eq ref $right) |
|
427
|
0 |
0 |
if defined $right |
|
441
|
8 |
0 |
$left->data ? : |
|
442
|
7 |
1 |
$right->data ? : |
|
446
|
74 |
22 |
if $val <= 0 |
|
450
|
0 |
8 |
if 0 == scalar keys %{$D;} |
|
467
|
0 |
8 |
unless "Pg::Explain::Buffers" eq ref $left |
|
468
|
0 |
8 |
unless "Pg::Explain::Buffers" eq ref $right |
|
477
|
0 |
8 |
unless $left->data |
|
478
|
1 |
7 |
unless ($right->data) |
|
486
|
15 |
13 |
unless my $L = $left->data->{$type} |
|
487
|
12 |
1 |
if (my $R = $right->data->{$type}) { } |
|
493
|
36 |
4 |
if $val <= "1e-05" |
|
501
|
3 |
4 |
if 0 == scalar keys %{$new_data;} |
|
519
|
972 |
816 |
unless $self->data |