Condition Coverage

blib/lib/Net/Lookup/DotTel.pm
Criterion Covered Total %
condition 14 54 25.9


and 2 conditions

line l !l condition
302 0 0 $Net::Lookup::DotTel::a->[2] eq 'pa' and $Net::Lookup::DotTel::b->[2] eq 'bpa' and -1
0 0 $Net::Lookup::DotTel::b->[2] eq 'pa' and $Net::Lookup::DotTel::a->[2] eq 'bpa' and 1

and 3 conditions

line !l l&&!r l&&r condition
302 0 0 0 $Net::Lookup::DotTel::a->[2] eq 'pa' and $Net::Lookup::DotTel::b->[2] eq 'bpa'
0 0 0 $Net::Lookup::DotTel::b->[2] eq 'pa' and $Net::Lookup::DotTel::a->[2] eq 'bpa'

or 2 conditions

line l !l condition
465 8 0 $value || ''
0 8 (grep /^x-lbl:(.+)$/, @services)[0] || ''
8 0 $n->order || 0
8 0 $n->preference || 0
8 0 $n->flags || ''
8 0 $n->regexp || ''
8 0 $n->replacement || ''

or 3 conditions

line l !l&&r !l&&!r condition
302 0 0 0 @{$b;} <=> @{$a;} or $Net::Lookup::DotTel::a->[2] eq 'pa' and $Net::Lookup::DotTel::b->[2] eq 'bpa' and -1
0 0 0 @{$b;} <=> @{$a;} or $Net::Lookup::DotTel::a->[2] eq 'pa' and $Net::Lookup::DotTel::b->[2] eq 'bpa' and -1 or $Net::Lookup::DotTel::b->[2] eq 'pa' and $Net::Lookup::DotTel::a->[2] eq 'bpa' and 1
0 0 0 @{$b;} <=> @{$a;} or $Net::Lookup::DotTel::a->[2] eq 'pa' and $Net::Lookup::DotTel::b->[2] eq 'bpa' and -1 or $Net::Lookup::DotTel::b->[2] eq 'pa' and $Net::Lookup::DotTel::a->[2] eq 'bpa' and 1 or $Net::Lookup::DotTel::a->[3] cmp $Net::Lookup::DotTel::b->[3]
448 8 0 0 not $service or grep /^$service(:.+)?$/, @services
460 8 0 0 $value ||= $regexp
486 16 0 0 $Net::Lookup::DotTel::a->{'preference'} <=> $Net::Lookup::DotTel::b->{'preference'} or $Net::Lookup::DotTel::a->{'order'} <=> $Net::Lookup::DotTel::b->{'order'}
16 0 0 $Net::Lookup::DotTel::a->{'preference'} <=> $Net::Lookup::DotTel::b->{'preference'} or $Net::Lookup::DotTel::a->{'order'} <=> $Net::Lookup::DotTel::b->{'order'} or join('+', @{$Net::Lookup::DotTel::a->{'services'};}) cmp join('+', @{$Net::Lookup::DotTel::b->{'services'};})
0 0 0 $Net::Lookup::DotTel::a->{'preference'} <=> $Net::Lookup::DotTel::b->{'preference'} or $Net::Lookup::DotTel::a->{'order'} <=> $Net::Lookup::DotTel::b->{'order'} or join('+', @{$Net::Lookup::DotTel::a->{'services'};}) cmp join('+', @{$Net::Lookup::DotTel::b->{'services'};}) or $Net::Lookup::DotTel::a->{'regexp'} cmp $Net::Lookup::DotTel::b->{'regexp'}
0 0 0 $Net::Lookup::DotTel::a->{'preference'} <=> $Net::Lookup::DotTel::b->{'preference'} or $Net::Lookup::DotTel::a->{'order'} <=> $Net::Lookup::DotTel::b->{'order'} or join('+', @{$Net::Lookup::DotTel::a->{'services'};}) cmp join('+', @{$Net::Lookup::DotTel::b->{'services'};}) or $Net::Lookup::DotTel::a->{'regexp'} cmp $Net::Lookup::DotTel::b->{'regexp'} or $Net::Lookup::DotTel::a->{'flags'} cmp $Net::Lookup::DotTel::b->{'flags'}
531 4 2 8 $parts[0] eq '.tkw' or $parts[0] eq '.tsm'