| line |
true |
false |
branch |
|
19
|
231 |
14 |
if @_
|
|
35
|
70 |
819 |
if ($_[0] =~ s/(?<![$punct])([~^])(?:(\1)|(\d+))?\z//) { }
|
|
36
|
12 |
45 |
$2 ? :
|
|
37
|
39 |
31 |
if $1 eq "^"
|
|
48
|
43 |
534 |
if (my $offset = &_offset($key)) { }
|
|
51
|
4 |
36 |
$idx > $#{$$self{'list'};} ? :
|
|
|
3 |
40 |
$idx < 0 ? :
|
|
62
|
158 |
419 |
if ($change eq "")
|
|
64
|
39 |
119 |
unless my $idx = $self->{'lookup'}{"\@" . $tag}
|
|
68
|
74 |
345 |
unless my $idx = $self->{'lookup'}{$change}
|
|
69
|
130 |
215 |
if (defined $tag)
|
|
71
|
2 |
128 |
unless my $tag_idx = $self->{'lookup'}{"\@" . $tag}
|
|
77
|
125 |
39 |
if $i <= $tag_idx
|
|
83
|
211 |
4 |
if @{$idx;} < 2
|
|
103
|
24 |
262 |
if (my $offset = &_offset($key)) { }
|
|
106
|
0 |
24 |
$idx > $#{$$self{'list'};} ? :
|
|
|
0 |
24 |
$idx < 0 ? :
|
|
116
|
132 |
154 |
unless my $idx = $self->{'lookup'}{$change}
|
|
117
|
117 |
37 |
unless defined $since
|
|
136
|
19 |
3 |
defined $self->{'last_tagged_at'} ? :
|
|
148
|
32 |
143 |
$name =~ /@/ ? :
|
|
156
|
22 |
67 |
$name =~ /@/ ? :
|
|
159
|
70 |
19 |
defined $idx ? :
|
|
193
|
15 |
4 |
if $index == $#{$$self{"list"};}
|