blib/lib/SQL/Abstract/Plugin/TableAlias.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 36 | 60 | 60.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
17 | 0 | 0 | 31 | ref $args eq "HASH" and ref $args->{'from'} eq "ARRAY" |
77 | 20 | 6 | 0 | $where eq 'ARRAY' && $self->_alias_where_array($args, $map[0], \%columns) |
86 | 12 | 12 | 0 | defined $args->{'order_by'} && !ref($order_by) && $self->_alias_order_by_string($args, $map[0], \%columns) |
89 | 24 | 2 | 0 | $group_by eq 'HASH' && $self->_alias_group_by_hash($args, $map[0], \%columns) |
117 | 1 | 0 | 0 | $last_array and do { $last_array = 0; 1 } |
124 | 56 | 0 | 4 | $last_array and do { $last_array = 0; 1 } |
137 | 39 | 0 | 0 | ref $args->{$w} eq "HASH" and $args->{$w}{'-alias'} |
line | l | !l | condition |
---|---|---|---|
24 | 12 | 19 | $args->{'talias'} ||= [] |
28 | 29 | 67 | ref $from || '' |
74 | 31 | 0 | ref $args->{'select'} || '' |
104 | 1 | 43 | ref $sel->[$l] or Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018. |
152 | 12 | 4 | ref $where || '' |
184 | 8 | 8 | ref $w || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
29 | 0 | 29 | 38 | $ref || $from =~ /^-/ |
31 | 0 | 26 | 0 | $from->{'as'} ||= scalar @{$args->{'talias'};} ? shift @{$$args{"talias"};} : (ref $from->{'to'} ? $from->{'to'}{'-ident'}[0] : $from->{'to'}) |
54 | 0 | 0 | 0 | shift @{$$args{'talias'};} || $_ |
0 | 0 | 0 | $from->{$_}{'-as'} ||= shift @{$$args{'talias'};} || $_ | |
60 | 1 | 2 | 0 | shift @{$$args{'talias'};} || $from->[0] |
67 | 12 | 26 | 0 | shift @{$$args{'talias'};} || $from |
117 | 1 | 0 | 1 | $i < 0 or $last_array and do { $last_array = 0; 1 } |
124 | 27 | 30 | 30 | $i < 0 or $last_array and do { $last_array = 0; 1 } |
227 | 57 | 35 | 0 | $columns->{$column} || $default |