| line |
true |
false |
branch |
|
52
|
0 |
0 |
unless $_ =~ /$key/
|
|
89
|
0 |
8 |
if (-e $fileSpec) { }
|
|
107
|
0 |
0 |
if $con =~ /any/
|
|
122
|
0 |
8 |
grep({$_ eq ':all';} @_) ? :
|
|
124
|
0 |
8 |
if @structures
|
|
133
|
0 |
0 |
if $@
|
|
140
|
18 |
0 |
if @args % 2
|
|
141
|
0 |
18 |
unless $structure
|
|
147
|
0 |
0 |
if @_
|
|
155
|
0 |
2 |
if exists $MICRO{$structure}
|
|
157
|
0 |
2 |
if @badnames
|
|
187
|
2 |
2 |
if (defined $fh)
|
|
190
|
14 |
18 |
if (/^#\s*(\w+.*)$/)
|
|
222
|
0 |
0 |
if (@_) { }
|
|
224
|
0 |
0 |
if $structure =~ /^(?:0|[1-9]\d*)$/
|
|
230
|
0 |
0 |
if (not exists $self->{'micro'}{$structure})
|
|
232
|
0 |
0 |
if (not $MICRO{$structure})
|
|
249
|
0 |
0 |
if (@_) { }
|
|
251
|
0 |
0 |
if defined $structure and $structure =~ /^(?:0|[1-9]\d*)$/
|
|
257
|
0 |
0 |
unless (exists $self->{'micro'}{$structure})
|
|
258
|
0 |
0 |
unless ($MICRO{$structure})
|
|
260
|
0 |
0 |
if $@
|
|
272
|
0 |
0 |
if (@_) { }
|
|
274
|
0 |
0 |
if defined $structure and $structure =~ /^(?:0|[1-9]\d*)$/
|
|
280
|
0 |
0 |
unless (exists $self->{'micro'}{$structure})
|
|
281
|
0 |
0 |
unless ($MICRO{$structure})
|
|
285
|
0 |
0 |
if $@
|
|
295
|
0 |
0 |
wantarray ? :
|
|
296
|
0 |
0 |
$_[1] ? :
|
|
297
|
0 |
0 |
$_[1] ? :
|
|
301
|
0 |
0 |
if (@_)
|
|
303
|
0 |
0 |
if $structure =~ /^(?:0|[1-9]\d*)$/
|
|
306
|
0 |
0 |
unless (exists $self->{'micro'}{$structure})
|
|
315
|
0 |
0 |
unless $string
|
|
331
|
0 |
0 |
if (exists $isa{'AI::MicroStructure::Locale'}) { }
|
|
|
0 |
0 |
elsif (exists $isa{'AI::MicroStructure::MultiList'}) { }
|
|
364
|
0 |
0 |
unless $_
|
|
366
|
0 |
0 |
if (ref $data->{$key} eq 'HASH') { }
|
|
373
|
0 |
0 |
$key =~ /names|default|[a-z]/ ? :
|
|
386
|
0 |
0 |
unless $line
|
|
388
|
0 |
0 |
if ($_ eq $line)
|
|
389
|
0 |
0 |
if (1 + $line eq $_)
|
|
390
|
0 |
0 |
if ($active == 1)
|
|
393
|
0 |
0 |
unless defined $dat->{'names'}{$_}
|
|
397
|
0 |
0 |
if ($_ eq $line)
|
|
398
|
0 |
0 |
if (1 + $line eq $_)
|
|
399
|
0 |
0 |
if ($active == 1)
|
|
402
|
0 |
0 |
unless defined $dat->{'names'}{$_}
|
|
412
|
0 |
0 |
if (@file)
|
|
413
|
0 |
0 |
unless open SELF, "+<$file[0]"
|
|
414
|
0 |
0 |
if /^__DATA__/
|
|
424
|
0 |
0 |
if (<DATA>)
|
|
428
|
0 |
0 |
if ($_ =~ /^#\s*(\w+.*)$/) { }
|
|
430
|
0 |
0 |
if ($#a) { }
|
|
435
|
0 |
0 |
unless $#a
|
|
439
|
0 |
0 |
if ($#a) { }
|
|
440
|
0 |
0 |
unless $_ eq ''
|
|
442
|
0 |
0 |
unless $_ eq ''
|
|
470
|
0 |
0 |
if $k =~ /synonyms|hypernyms/
|
|
475
|
0 |
0 |
unless @{$new->{$k};}
|
|
491
|
0 |
0 |
if ($StructureName)
|
|
494
|
0 |
0 |
unless -d $absstructdir
|
|
496
|
0 |
0 |
unless open $fh, ">$file"
|
|
510
|
0 |
0 |
if (`ls $fh`)
|
|
520
|
0 |
8 |
if ($init)
|
|
521
|
0 |
8 |
if ($available)
|
|
522
|
0 |
8 |
if ($lib)
|
|
523
|
0 |
8 |
if ($list)
|
|
526
|
0 |
8 |
if ($use)
|
|
527
|
0 |
8 |
if ($off)
|
|
528
|
0 |
8 |
if ($switch)
|
|
529
|
0 |
8 |
if ($mirror)
|
|
530
|
0 |
8 |
if ($version)
|
|
534
|
0 |
8 |
if ($help)
|
|
538
|
0 |
8 |
if ($drop == 1)
|
|
542
|
0 |
8 |
if ($new == 1)
|
|
549
|
0 |
0 |
unless $senses
|
|
550
|
0 |
0 |
unless ($verbose)
|
|
557
|
0 |
0 |
unless $senses != 1
|
|
558
|
0 |
0 |
if ($verbose)
|
|
561
|
0 |
0 |
unless $line
|
|
565
|
0 |
0 |
if ($line > 0) { }
|
|
573
|
0 |
8 |
if ($write == 1)
|
|
632
|
0 |
0 |
unless $_
|
|
637
|
0 |
0 |
if ($sensnrx > 9)
|