blib/lib/Tk/ProgressSplash.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 4 | 12 | 33.3 |
line | true | false | branch |
---|---|---|---|
26 | 1 | 4 | if ($args[$i] eq '-splashtype') { } |
0 | 4 | elsif ($args[$i] =~ /^-/) { } | |
39 | 1 | 0 | if ($splashtype eq 'fast') { } |
54 | 0 | 0 | unless (ref $f) |
74 | 0 | 0 | if ($ENV{'TK_SPLASH_COMPUTE'}) |
75 | 0 | 0 | if (not defined $lastcallindex) { } |