line |
true |
false |
branch |
54
|
0 |
0 |
if (not ref $suspect) { } |
|
0 |
0 |
elsif (ref $suspect eq 'ARRAY') { } |
|
0 |
0 |
elsif (ref $suspect eq 'HASH') { } |
55
|
0 |
0 |
unless $suspect =~ /^[A-Za-z0-9:.,]*$/ |
83
|
0 |
25 |
if (ref $self eq 'Games::Tournament::Swiss::Config' and $roles) |
86
|
0 |
25 |
if (ref $self eq 'Games::Tournament::Swiss::Config' and $self->{'roles'}) { } |
101
|
0 |
9 |
if (ref $self eq 'Games::Tournament::Swiss::Config' and $scores) { } |
|
0 |
9 |
elsif (ref $self eq 'Games::Tournament::Swiss::Config' and $self->{'scores'}) { } |
119
|
0 |
2 |
if (ref $self eq 'Games::Tournament::Swiss::Config' and $abbreviation) { } |
|
0 |
2 |
elsif (ref $self eq 'Games::Tournament::Swiss::Config' and $self->{'abbreviation'}) { } |
138
|
0 |
0 |
unless $algorithm =~ /^Games::Tournament::Swiss::Procedure::\w+$/ |
140
|
0 |
0 |
if ($algorithm) { } |
|
0 |
0 |
elsif ($self->{'algorithm'}) { } |
155
|
0 |
0 |
if (ref $self eq 'Games::Tournament::Swiss::Config' and $first) { } |
|
0 |
0 |
elsif (ref $self eq 'Games::Tournament::Swiss::Config' and $self->{'first'}) { } |