Branch Coverage

blib/lib/Tk/Airports.pm
Criterion Covered Total %
branch 0 16 0.0


line true false branch
34 0 0 unless defined $$cw{'Selected'}
35 0 0 wantarray ? :
41 0 0 unless $airport
95 0 0 if (exists $$args{-'filename'})
96 0 0 if (not open(my $fh, '<', $$args{-'filename'})) { }
101 0 0 if ($lines[0] =~ /^[A-Z]{3} - .*$/) { }
110 0 0 if (not exists $$args{-'filename'} or $error)
114 0 0 if (exists $$args{-'order'} and $$args{-'order'} eq 'city')