| line |
true |
false |
branch |
|
19
|
7 |
13 |
if defined $args{$arg}
|
|
21
|
0 |
4 |
if (defined $self->{'dbh'})
|
|
22
|
0 |
0 |
if (ref $self->{'dbh'}) { }
|
|
23
|
0 |
0 |
unless ($self->{'dbh'}->can("insert"))
|
|
38
|
0 |
1 |
if (defined $table) { }
|
|
39
|
0 |
0 |
defined $self->{'inserted'} && exists $self->{'inserted'}{$table} ? :
|
|
47
|
0 |
3 |
if (defined $table) { }
|
|
48
|
0 |
0 |
defined $self->{'saved'} && exists $self->{'saved'}{$table} ? :
|
|
71
|
0 |
101 |
unless defined $table and length $table
|
|
73
|
0 |
37 |
defined $db ? :
|
|
|
64 |
37 |
if (defined $self_copy->{'cb'}) { }
|
|
|
37 |
0 |
elsif (defined $db ? eval {
|
|
74
|
34 |
30 |
if ($self_copy->{'cb'}->($table, $save_fields))
|
|
105
|
20 |
747 |
if (ref($el) =~ /Table\z/iu) { }
|
|
|
20 |
727 |
elsif (ref($el) =~ /TableHLine\z/iu) { }
|
|
|
141 |
586 |
elsif (ref($el) =~ /TableRow\z/iu) { }
|
|
|
293 |
293 |
elsif (ref($el) =~ /TableCell\z/iu) { }
|
|
|
293 |
0 |
elsif (ref($el) =~ /Text\z/iu) { }
|
|
112
|
20 |
0 |
if ($found_header_row)
|
|
116
|
18 |
2 |
if ($in_header and defined $self_copy->{'cb_table'})
|
|
120
|
9 |
9 |
scalar @fixed_columns ? :
|
|
|
0 |
18 |
unless $self_copy->{'cb_table'}->({"name", $table, "nameref", \$table, scalar @fixed_columns ? ("fixed", {map({$fixed_columns[$_], $fixed_values[$_];} 0 .. scalar @fixed_columns - 1)}) : (), "columns", \@columns, "data_column", $data_column, "caption", $caption})
|
|
130
|
101 |
40 |
if ($is_data_row)
|
|
140
|
55 |
238 |
if ($in_header) { }
|
|
167
|
32 |
0 |
if (defined $prev_elem)
|
|
171
|
20 |
100 |
if ref $prev_elem eq "Org::Element::Table"
|
|
181
|
40 |
60 |
if ref $prev_elem eq "Org::Element::Text" and $prev_elem->as_string =~ /^\s*\z/u
|
|
184
|
32 |
28 |
if (ref $prev_elem eq 'Org::Element::Setting') { }
|
|
|
12 |
16 |
elsif (ref $prev_elem eq 'Org::Element::Drawer') { }
|
|
186
|
16 |
16 |
if ($prev_elem->name =~ /^name\z/iu) { }
|
|
|
0 |
16 |
elsif ($prev_elem->name =~ /^data\z/iu) { }
|
|
|
8 |
8 |
elsif ($prev_elem->name =~ /^caption\z/iu) { }
|
|
|
8 |
0 |
elsif ($prev_elem->name =~ /^property\z/iu and scalar @{$prev_elem->args;} > 1) { }
|
|
213
|
8 |
12 |
if ($k =~ /^name\z/iu) { }
|
|
|
4 |
8 |
elsif ($k =~ /^data\z/iu) { }
|
|
222
|
8 |
4 |
if defined $table
|
|
237
|
6 |
26 |
unless defined $table
|
|
238
|
8 |
18 |
if (defined $self->{'tables'} and ref $self->{'tables'} eq "ARRAY")
|
|
239
|
6 |
2 |
unless &any(sub {
|