| line |
true |
false |
branch |
|
38
|
22 |
10 |
unless $user
|
|
56
|
6 |
41 |
if grep {not defined $_;} @constraints
|
|
60
|
32 |
15 |
if exists $context->{'user'}
|
|
64
|
0 |
47 |
if $context->{'order_by'} or "" =~ /\A(?:created|modified)\Z/
|
|
82
|
1 |
58 |
unless my $code = $self->can("constraint_for_$param")
|
|
96
|
0 |
47 |
unless @$constraints
|
|
119
|
1 |
12 |
unless $user
|
|
139
|
2 |
18 |
unless $tags and ref $tags eq "HASH"
|
|
141
|
2 |
16 |
unless %$tags
|
|
147
|
0 |
16 |
defined $tag_value ? :
|
|
159
|
0 |
1 |
unless $tags and ref $tags eq "HASH"
|
|
209
|
1 |
1 |
$bool ? :
|
|
220
|
1 |
1 |
$bool ? :
|
|
232
|
10 |
0 |
$bool ? :
|
|
247
|
1 |
3 |
unless my($link) = "Rubric::Link"->search({"md5", $md5})
|
|
277
|
1 |
3 |
unless my(@unit) = $datetime =~ qr/^(\d{4})(?:-(\d{2})(?:-(\d{2})(?:(?:T|)(\d{2})(?::(\d{2}))?)?)?)?$/o
|
|
279
|
2 |
1 |
if $unit[1]
|
|
291
|
1 |
3 |
unless my(@time) = _unit_from_string($datetime)
|
|
296
|
1 |
1 |
$prep eq 'before' ? :
|
|
|
1 |
2 |
$prep eq 'after' ? :
|