Condition Coverage

blib/lib/Tk/Getopt.pm
Criterion Covered Total %
condition 18 154 11.6


and 3 conditions

line !l l&&!r l&&r condition
47 0 5 2 ref $_ eq 'ARRAY' and defined $_->[3]
5 1 1 ref $_ eq 'ARRAY' and defined $_->[3] and ref $_->[3] ne 'HASH'
57 0 7 0 ref $_ eq 'ARRAY' and $_->[0] =~ /\|/
100 23 17 5 defined $self->{'options'} and not ref $optionlist[0]
151 0 0 80 ref $_ eq 'ARRAY' and $_->[0] ne ''
183 0 0 0 defined $opt->[0] and $opt->[0] eq ''
0 0 0 defined $opt->[0] and $opt->[0] eq '' and defined $opt->[2]
238 6 0 1 ref $self->varref($opt) eq 'ARRAY' and ref $$Tk::Getopt::loadoptions{$opt->[0]} eq 'ARRAY'
5 0 1 ref $self->varref($opt) eq 'HASH' and ref $$Tk::Getopt::loadoptions{$opt->[0]} eq 'HASH'
328 0 0 0 @args and $args[0] =~ /^-(\w+)$/
339 0 0 0 @args and $args[0] =~ /^-(\w+)$/
359 45 3 0 length $option == 1 && (!defined($type) || $type eq '' || $type eq '!')
410 2 0 0 defined $former and !exists $former->{$opt} || ${$self->varref($optdef);} eq $former->{$opt}
417 17 0 0 $optdef->[3]{'strict'} and UNIVERSAL::isa($optdef->[3]{'choices'}, 'ARRAY')
449 0 0 0 $self->{'useerrordialog'} and defined &Tk::MainWindow::Existing
456 0 0 0 $use_tk and not defined $is_safe
547 0 0 0 $opt->[3]{'strict'} and grep {ref $_ eq 'ARRAY';} @{$$opt[3]{'choices'};}
589 0 0 0 ref $choice eq 'ARRAY' and $choice->[1] eq $value
624 0 0 0 $args{-'restrict'} ne '=i' || &$restrict_int($_[0]) and $args{-'restrict'} ne '=f' || &$restrict_float($_[0])
797 0 0 0 defined $file and $file ne ''
889 0 0 0 ref $msglist and exists $msglist->{$current_top}
0 0 0 ref $msglist and exists $msglist->{$current_top} and $msglist->{$current_top} ne ''
922 0 0 0 $label =~ /^(.*)-(.*)$/ and $1 eq $current_top
928 0 0 0 defined $opt->[1] and $opt->[1] eq '!'
0 0 0 defined $opt->[1] and $opt->[1] =~ /i/
0 0 0 defined $opt->[1] and $opt->[1] =~ /f/
0 0 0 defined $opt->[1] and $opt->[1] =~ /s/
941 0 0 0 defined $opt->[3] && exists $opt->[3]{'subtype'}
961 0 0 0 exists $opt->[3]{'help'} and defined $balloon
1146 0 0 0 $opt->[0] eq '' and not _is_separator($opt)
1147 0 0 0 not $delay_page_create and $page_create_page
1177 0 0 0 not $delay_page_create and $page_create_page
1195 0 0 0 $rows and int $rows
1310 0 0 0 not $nosave and !$buttons || $allowed_button{'save'}
1341 0 0 0 not $dont_use_notebook and defined $self->{'raised'}

or 2 conditions

line l !l condition
1028 0 0 delete $a{'-toplevel'} || 'Toplevel'
1033 0 0 delete $a{'-string'} || {}

or 3 conditions

line l !l&&r !l&&!r condition
410 0 0 0 !exists $former->{$opt} || ${$self->varref($optdef);} eq $former->{$opt}
608 0 0 0 $args{-'restrict'} or defined $opt->[3]{'maxsize'}
624 0 0 0 not defined $opt->[3]{'maxsize'} or &$restrict_len($_[0])
0 0 0 $args{-'restrict'} ne '=i' || &$restrict_int($_[0])
0 0 0 $args{-'restrict'} ne '=f' || &$restrict_float($_[0])
928 0 0 0 defined $opt->[1] and $opt->[1] eq '!' or $opt->[1] eq ''
942 0 0 0 $subtype eq 'file' or $subtype eq 'savefile'
0 0 0 $subtype eq 'file' or $subtype eq 'savefile' or $subtype eq 'dir'
1220 0 0 0 not $buttons or $allowed_button{'ok'}
1261 0 0 0 not $buttons or $allowed_button{'apply'}
1272 0 0 0 not $buttons or $allowed_button{'cancel'}
1287 0 0 0 not $buttons or $allowed_button{'undo'}
1298 0 0 0 not $buttons or $allowed_button{'lastsaved'}
1310 0 0 0 !$buttons || $allowed_button{'save'}
1327 0 0 0 not $buttons or $allowed_button{'defaults'}