| line |
true |
false |
branch |
|
20
|
0 |
0 |
@_ ? : |
|
23
|
0 |
0 |
$_ eq '-' ? : |
|
49
|
0 |
2 |
unless @$files |
|
93
|
4 |
5 |
if ($part =~ /,/) { } |
|
106
|
0 |
0 |
if ($word =~ /^(-q|--quiet)$/) |
|
111
|
0 |
0 |
if ($word =~ /^(-v|--verbose)$/) |
|
116
|
0 |
0 |
if ($word =~ /^(?:-f|--file)(?:=(\S+))?$/) |
|
118
|
0 |
0 |
unless my $file = $1 || shift @words |
|
126
|
0 |
0 |
unless my $word = shift @words |
|
128
|
0 |
0 |
$word =~ /^-?-p(rove)?$/ ? : |
|
|
0 |
0 |
$word =~ /^-?-l(ist)?$/ ? : |
|
|
0 |
0 |
$word =~ /^-?-s(how)?$/ ? : |
|
|
0 |
0 |
$word =~ /^-?-u(ntag)?$/ ? : |
|
|
0 |
0 |
$word =~ /^-?-t(ag)?$/ ? : |
|
142
|
2 |
4 |
unless $args[0] =~ /^[\w-]+$/ |
|
152
|
0 |
0 |
@args ? : |
|
162
|
0 |
6 |
unless $index->add_tag_file($tag, $file, $self->get_comment) |
|
173
|
0 |
0 |
unless $index->remove_tag_file($tag, $file) |
|
181
|
0 |
6 |
unless defined $comment |
|
231
|
0 |
0 |
if $self->silent |
|
236
|
0 |
0 |
if $self->msg_threshold > 1 |
|
241
|
0 |
0 |
if $self->msg_threshold > 2 |
|
246
|
0 |
0 |
if $self->msg_threshold > 3 |
|
266
|
0 |
6 |
unless -f $file |
|
275
|
0 |
0 |
defined delete($$index{$tag}{$file}) ? : |
|
290
|
0 |
0 |
if (ref $sub) { } |
|
|
0 |
0 |
elsif ($sub =~ /^\^(.*)/) { } |
|
310
|
0 |
0 |
if ($term =~ s/^\^//) { } |
|
323
|
0 |
0 |
if ($term =~ /[^\w\-]/) { } |
|
351
|
0 |
0 |
unless defined $keep{$file} |
|
362
|
0 |
0 |
if $file eq $query |
|
372
|
1 |
2 |
unless -f $file and open INDEX, $file |
|
376
|
10 |
6 |
if $line =~ /^#/ |
|
390
|
0 |
3 |
unless open INDEX, "> $file" |
|
398
|
0 |
12 |
if $comment |
|
424
|
2 |
1 |
if -e $file |
|
425
|
0 |
1 |
unless $file =~ m[(.+)[\\/]] |
|
426
|
0 |
1 |
unless my $dir = $1 |
|
427
|
0 |
1 |
if -d $dir |