blib/lib/Hub/Perl/Compare.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 1 | 22 | 4.5 |
line | true | false | branch |
---|---|---|---|
90 | 0 | 0 | unless my $comparator = shift() |
91 | 0 | 0 | unless defined $COMPARISONS{$comparator} |
94 | 0 | 0 | defined $_[1] ? : |
0 | 0 | !defined($_[1]) ? : | |
0 | 0 | defined $_[0] ? : | |
107 | 0 | 0 | unless my $comparator = shift() |
108 | 0 | 0 | unless defined $COMPARISONS{$comparator} |
111 | 0 | 0 | defined $_[1] ? : |
0 | 0 | defined $_[1] ? : | |
0 | 0 | defined $_[0] ? : | |
123 | 0 | 54 | if can($_[0], 'get_data') |