| line |
!l |
l&&!r |
l&&r |
condition |
|
51
|
0 |
78 |
3013 |
defined $v && length $v |
|
56
|
0 |
7 |
0 |
$r && do {
$v = $r->full_value;
defined $v && length $v ? $v : $r
} |
|
97
|
0 |
6 |
1 |
$record && $record->full_value |
|
108
|
0 |
0 |
10069 |
$record && $record->full_value |
|
133
|
5 |
0 |
1 |
defined $args{'xref'} and $g->{'value'} =~ /xref/i |
|
140
|
23 |
53 |
0 |
defined $args{'val'} and $g->{'value'} |
|
161
|
3 |
0 |
59 |
@_ > 1 and ref $_[-1] ne 'ARRAY' |
|
260
|
0 |
6531 |
0 |
$t and $t ne $g |
|
282
|
870 |
4705 |
15 |
$i->value and $i->value =~ /^pointer || 0) |
|
312
|
5580 |
0 |
0 |
@i > 1 and not $m |
|
366
|
12 |
13088 |
2056 |
defined $self->{'value'} and UNIVERSAL::isa($self->{'value'}, 'Gedcom::Record') |
|
|
13100 |
2056 |
0 |
defined $self->{'value'} and UNIVERSAL::isa($self->{'value'}, 'Gedcom::Record') and exists $self->{'value'}{'xref'} |
|
390
|
1517 |
13563 |
38409 |
defined $self->{'value'} and length $self->{'value'} |
|
|
15080 |
37729 |
680 |
defined $self->{'value'} and length $self->{'value'} and not defined $grammar->{'value'} |
|
409
|
607485 |
29521 |
2 |
$matches > $max and $max |
|
456
|
0 |
5160 |
15240 |
$i and $i->{'xref'} eq $self->{'xref'} |
|
485
|
0 |
7578 |
0 |
eval {
do {
'Date::Manip'->VERSION(6)
}
} and not eval {
do {
'Date::Manip'->VERSION(6.13)
}
} |
|
492
|
0 |
6672 |
906 |
defined $self->{'tag'} and $self->{'tag'} =~ /^date$/i |
|
493
|
0 |
906 |
0 |
defined $self->{'value'} and $self->{'value'} |
|
529
|
2760 |
0 |
1736 |
$recurse and not exists $self->{'recursed'} |
|
566
|
0 |
0 |
0 |
$r = $self->tag_record('BIRT') and my $date = $r->tag_record('DATE') |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
84
|
0 |
0 |
3322 |
$record eq 'FAMS' or $record eq 'FAMC' |
|
133
|
0 |
1 |
4 |
defined $args{'xref'} || $g->{'value'} =~ /xref/i |
|
|
1 |
4 |
1 |
defined $args{'xref'} and $g->{'value'} =~ /xref/i or not defined $args{'xref'} || $g->{'value'} =~ /xref/i |
|
140
|
2 |
7 |
16 |
defined $args{'val'} || $g->{'value'} |
|
|
51 |
16 |
9 |
defined $args{'val'} and $g->{'value'} or not defined $args{'val'} || $g->{'value'} |
|
278
|
5590 |
0 |
0 |
$i->level =~ /^[+0]/ or $i->level == $r->level |
|
439
|
5585 |
2820 |
365 |
$self->{'tag'} eq 'INDI' or $self->{'tag'} eq 'FAM' |
|
506
|
642 |
0 |
258 |
not $dt =~ /^\s*(\d+)\s*$/ or length $1 > 6 |
|
524
|
9078 |
26 |
4496 |
exists $self->{'recursed'} or not defined $self->{'xref'} |