| line |
true |
false |
branch |
|
163
|
0 |
1309 |
if $args[0] and $args[0] eq __PACKAGE__
|
|
165
|
507 |
802 |
if ref $args[0]
|
|
168
|
806 |
503 |
if (not defined $domain or length $domain == 0) { }
|
|
|
500 |
3 |
elsif ($domain eq 'rand') { }
|
|
174
|
6 |
2 |
if (not defined $__unique{$domain} and $ENV{'TEST_UNIQUE'})
|
|
212
|
207 |
1 |
if ref $args[0]
|
|
246
|
0 |
1190 |
unless $self->can($method)
|
|
247
|
1154 |
36 |
unless $method =~ $self->pattern
|
|
275
|
10 |
2 |
unless $params{'n'}
|
|
277
|
0 |
12 |
if (ref $params{'tests'} eq 'ARRAY') { }
|
|
281
|
1 |
11 |
if (@ARGV)
|
|
285
|
2 |
0 |
if $arg ne $testName
|
|
290
|
0 |
1 |
if (scalar @userRunTests > 0)
|
|
310
|
0 |
62 |
unless $self->can($method)
|
|
324
|
0 |
62 |
if $self->mocker
|
|
346
|
36 |
4 |
unless $ENV{'TEST_VERBOSE'}
|
|
360
|
0 |
22 |
unless ($class->can($method) or $class->can("AUTOLOAD"))
|
|
364
|
1 |
16 |
if defined $return and ref $return ne "CODE" and ref $return ne "ARRAY"
|
|
366
|
16 |
5 |
unless ($self->{'mock_module'}{$class})
|
|
376
|
31 |
7 |
if ($return)
|
|
378
|
20 |
11 |
if (ref $return eq 'ARRAY') { }
|
|
380
|
16 |
4 |
if (@$return) { }
|
|
391
|
13 |
18 |
if (ref $val eq 'CODE') { }
|
|
392
|
6 |
7 |
if (wantarray) { }
|
|
402
|
14 |
4 |
unless $empty
|
|
411
|
14 |
23 |
wantarray ? :
|
|
426
|
2 |
4 |
if (not $class) { }
|
|
|
1 |
3 |
elsif (not $method) { }
|
|
427
|
1 |
1 |
if $method
|
|
433
|
2 |
1 |
if ($self->{'mock_module'}{$class})
|
|
532
|
5 |
1 |
unless ($args{'withObject'})
|
|
575
|
59 |
3 |
unless defined $modeName and length $modeName
|
|
609
|
239 |
0 |
if defined $returnValue and $returnValue eq 0
|
|
610
|
0 |
0 |
unless (defined $method)
|
|
611
|
0 |
0 |
if "setUpBeforeClass" ne $type and "tearDownAfterClass" ne $type
|
|
632
|
0 |
801 |
if $args[0] and $args[0] eq __PACKAGE__
|
|
634
|
66 |
735 |
if ref $args[0]
|
|
639
|
66 |
735 |
unless defined $length
|
|
651
|
604 |
1805 |
if ($chars == \@UNIQUE_STR_CI_CHARS and length($str) % 2 == $oddOrEven)
|
|
658
|
2 |
799 |
if $str eq 0
|
|
675
|
1 |
207 |
if ($pos < 0 and $options->{'length'})
|
|
683
|
728 |
1 |
unless $length
|
|
685
|
350 |
379 |
$options->{'lettersOnly'} ? :
|
|
686
|
1 |
728 |
unless $str =~ /^[a-z]/i
|