| line |
true |
false |
branch |
|
34
|
0 |
1 |
$$args{'thingy'} ? : |
|
35
|
0 |
1 |
$$args{'rate'} ? : |
|
36
|
0 |
1 |
$$args{'probability'} ? : |
|
37
|
0 |
1 |
$$args{'stream'} ? : |
|
39
|
0 |
1 |
$$args{'type'} ? : |
|
40
|
0 |
1 |
$$args{'width'} ? : |
|
41
|
0 |
1 |
$$args{'delay'} ? : |
|
59
|
1 |
0 |
$new_thingy ? : |
|
68
|
1 |
0 |
defined $new_rate ? : |
|
77
|
1 |
0 |
defined $new_prob ? : |
|
86
|
1 |
0 |
defined $new_stream ? : |
|
94
|
0 |
0 |
defined $prob ? : |
|
102
|
0 |
1 |
if ($type eq 'bounce') { } |
|
|
0 |
1 |
elsif ($type eq 'swish') { } |
|
127
|
1 |
0 |
defined $new_width ? : |
|
142
|
0 |
1 |
defined $new_delay ? : |
|
159
|
1 |
0 |
if ($@) { } |
|
162
|
3 |
1 |
unless -x "$path/tput" |
|
195
|
0 |
0 |
$oldx > $Term::Twiddle::_xpos ? : |
|
220
|
0 |
0 |
$oldx > $Term::Twiddle::_xpos ? : |
|
240
|
0 |
0 |
$Term::Twiddle::_step + 1 > $#$Term::Twiddle::thingy ? : |
|
243
|
0 |
0 |
if $Term::Twiddle::probability and (rand()) * 100 < $Term::Twiddle::probability |