| line |
true |
false |
branch |
|
35
|
0 |
0 |
unless $name
|
|
72
|
0 |
10 |
unless %directions
|
|
84
|
7 |
3 |
if (int @styles == 1) { }
|
|
|
3 |
0 |
elsif (int @styles == 2) { }
|
|
87
|
0 |
7 |
if (int @directions > 2)
|
|
98
|
0 |
6 |
if (int @directions > 1)
|
|
101
|
0 |
0 |
if ($directions[0] =~ /^(down|up|vertical)$/ and $directions[1] =~ /^(left|right)$/ or $directions[0] =~ /^(horizontal)$/ and $directions[1] =~ /^(up|down)$/)
|
|
115
|
0 |
10 |
unless (@variations)
|
|
120
|
5 |
9 |
unless charnames::vianame($variation)
|
|
124
|
0 |
1 |
if ($report_on_failure)
|
|
143
|
0 |
10 |
if (grep {not defined $_;} values %directions)
|
|
144
|
0 |
0 |
defined $directions{$_} ? :
|
|
151
|
8 |
10 |
if $directions{$direction} . '' eq '1'
|
|
155
|
1 |
6 |
if ($directions{'down'} and $directions{'up'} and $directions{'down'} eq $directions{'up'})
|
|
159
|
1 |
5 |
if ($directions{'left'} and $directions{'right'} and $directions{'left'} eq $directions{'right'})
|
|
165
|
2 |
8 |
if (grep {$directions{$_} eq 'double';} keys %directions)
|