Condition Coverage

blib/lib/Docopt.pm
Criterion Covered Total %
condition 88 99 88.8


and 3 conditions

line !l l&&!r l&&r condition
78 0 55 20 $e->isa('Docopt::Option') and $e->argcount
85 80 20 55 $e->isa('Docopt::Option') and $e->argcount == 0
296 2575 1560 44 defined $types and $self->isa($types)
578 56 773 139 !defined($value) && $argcount
613 852 2 401 defined $self->long and not ref $self->long
638 0 46 19 defined $description and $description =~ /\[default: (.*)\]/i
665 32 0 115 $eq eq '' && $value eq ''
667 72 57 18 $tokens->error eq 'Docopt::Exceptions::DocoptExit' and @similar == 0
848 13 46 73 defined $tokens->current and $tokens->current eq '|'
873 241 642 39 defined $tokens->current and $tokens->current eq '...'
899 321 4 72 $token =~ /^--/ and $token ne '--'
2 4 135 $token ne '-' and $token ne '--'
184 141 0 $token =~ /^-/ and ($token ne '-' and $token ne '--')
111 0 79 $token =~ /^</ and $token =~ />$/
958 101 1 100 $tokens->current =~ /\A-/ and $tokens->current ne '-'
1021 0 213 2 $help and any sub {
1025 213 0 0 $version and grep {$_->name eq '--version' if defined $_->name;} @$options
1104 16 24 173 $matched and serialize $left eq serialize([])

or 2 conditions

line l !l condition
371 288 224 $collected ||= []
406 226 8 $collected ||= []
438 35 10 $collected ||= []
487 49 6 $collected ||= []
528 248 232 $error ||= 'Docopt::Exceptions::DocoptExit'
907 479 2 $tokens->move || ''
1046 219 14 delete $args{'argv'} || \@ARGV
1136 8 0 $$self{'message'} || 'Died'
1158 15 68 $$self{'message'} || ''

or 3 conditions

line l !l&&r !l&&!r condition
78 92 0 75 $e->isa('Docopt::Argument') or $e->isa('Docopt::Option') and $e->argcount
85 12 0 155 $e->isa('Docopt::Command') or $e->isa('Docopt::Option') and $e->argcount == 0
213 1878 219 550 not defined $types or $self->isa($types)
230 60 58 213 is_number($self->value) or ref $self->value eq 'ARRAY'
694 2 1 17 not defined $tokens->current or $tokens->current eq '--'
766 1 1 18 not defined $tokens->current or $tokens->current eq '--'
842 228 434 59 not defined $tokens->current or $tokens->current ne '|'
899 288 196 446 $token eq '(' or $token eq '['
79 63 48 $token =~ /^</ and $token =~ />$/ or $token =~ /\A[A-Z]+\z/