| line |
true |
false |
branch |
|
87
|
0 |
0 |
if (scalar(@_) % 2) |
|
105
|
0 |
0 |
if (defined $self->{'file'}) |
|
115
|
0 |
0 |
if ($self->{'debug'}) |
|
134
|
0 |
0 |
if (not defined $levels or $levels =~ /[^0-9]/) |
|
185
|
0 |
0 |
if ($row == 0 and $col == 0) { } |
|
|
0 |
0 |
elsif ($row == 0 and $col == 1) { } |
|
212
|
0 |
0 |
unless (-f $file) |
|
302
|
0 |
0 |
if (length $buffer > 0) |
|
317
|
0 |
0 |
if ($field == 3) { } |
|
|
0 |
0 |
elsif ($field == 4) { } |
|
|
0 |
0 |
elsif ($field == 5) { } |
|
|
0 |
0 |
elsif ($field == 6) { } |
|
|
0 |
0 |
elsif ($field == 7) { } |
|
|
0 |
0 |
elsif ($field == 10) { } |
|
400
|
0 |
0 |
unless (open WRITE, ">$file") |
|
456
|
0 |
0 |
unless defined $binUpper |
|
457
|
0 |
0 |
unless defined $binLower |
|
467
|
0 |
0 |
if ($opt == 3) { } |
|
|
0 |
0 |
elsif ($opt == 4) { } |
|
|
0 |
0 |
elsif ($opt == 5) { } |
|
|
0 |
0 |
elsif ($opt == 6) { } |
|
|
0 |
0 |
elsif ($opt == 7) { } |
|
|
0 |
0 |
elsif ($opt == 10) { } |
|
478
|
0 |
0 |
if (scalar @{$coords;} > 0) |
|
503
|
0 |
0 |
if (scalar @{$coords;} > 0) |
|
531
|
0 |
0 |
if (exists $meta->{'hint'}) |
|
541
|
0 |
0 |
if (scalar @{$movement;} > 0) |
|
619
|
0 |
0 |
unless defined $level |
|
621
|
0 |
0 |
unless exists $self->{'levels'}{$level} |
|
625
|
0 |
0 |
if (defined $self->{'levels'}{$level}{$key} and defined $self->{'levels'}{$level}{$key} and length $self->{'levels'}{$level}{$key}) |
|
633
|
0 |
0 |
if exists $return->{'level'} |
|
681
|
0 |
0 |
unless (defined $level) |
|
686
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
691
|
0 |
0 |
if (exists $info{'title'} and length $info{'title'} < 1) |
|
695
|
0 |
0 |
if (exists $info{'password'} and length $info{'password'} != 4) |
|
699
|
0 |
0 |
if (exists $info{'password'} and $info{'password'} =~ /[^A-Za-z]/) |
|
705
|
0 |
0 |
if (exists $info{'password'}) |
|
711
|
0 |
0 |
if ($self->{'levels'}{$i}{'password'} eq $info{'password'}) |
|
719
|
0 |
0 |
if (exists $info{'level'}) { } |
|
753
|
0 |
0 |
unless (defined $level) |
|
758
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
763
|
0 |
0 |
if (scalar @{$self->{'levels'}{$level}{'layer1'};} == 0) |
|
783
|
0 |
0 |
unless (defined $level) |
|
788
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
793
|
0 |
0 |
if (scalar @{$self->{'levels'}{$level}{'layer2'};} == 0) |
|
812
|
0 |
0 |
unless (defined $level and defined $data) |
|
817
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
824
|
0 |
0 |
if (scalar @{$data;} != 32) |
|
829
|
0 |
0 |
if (scalar @{$row;} != 32) |
|
852
|
0 |
0 |
unless (defined $level and defined $data) |
|
857
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
864
|
0 |
0 |
if (scalar @{$data;} != 32) |
|
869
|
0 |
0 |
if (scalar @{$row;} != 32) |
|
901
|
0 |
0 |
unless (defined $level) |
|
906
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
939
|
0 |
0 |
unless (defined $level) |
|
944
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
948
|
0 |
0 |
if (ref $traps ne 'ARRAY') |
|
955
|
0 |
0 |
if (ref $trap ne 'HASH') |
|
959
|
0 |
0 |
if (not exists $trap->{'button'} or ref $trap->{'button'} ne 'ARRAY') |
|
963
|
0 |
0 |
if (not exists $trap->{'trap'} or ref $trap->{'trap'} ne 'ARRAY') |
|
993
|
0 |
0 |
unless (defined $level) |
|
998
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
1026
|
0 |
0 |
unless (defined $level) |
|
1031
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
1035
|
0 |
0 |
if (ref $coords ne 'ARRAY') |
|
1042
|
0 |
0 |
if (ref $link ne 'HASH') |
|
1046
|
0 |
0 |
if (not exists $link->{'button'} or ref $link->{'button'} ne 'ARRAY') |
|
1050
|
0 |
0 |
if (not exists $link->{'clone'} or ref $link->{'clone'} ne 'ARRAY') |
|
1076
|
0 |
0 |
unless (defined $level) |
|
1081
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
1110
|
0 |
0 |
unless (defined $level) |
|
1115
|
0 |
0 |
unless (exists $self->{'levels'}{$level}) |
|
1119
|
0 |
0 |
if (ref $coords ne 'ARRAY') |
|
1126
|
0 |
0 |
if (ref $link ne 'ARRAY') |
|
1130
|
0 |
0 |
if (scalar @{$link;} != 2) |
|
1172
|
0 |
0 |
if ($hex eq 'FF') { } |
|
1198
|
0 |
0 |
if (scalar @{$raw;} != 1024) |
|
1207
|
0 |
0 |
if ($x > scalar @{$grid;}) |
|
1214
|
0 |
0 |
if ($x >= 32) |
|
1246
|
0 |
0 |
if (scalar @flat != 1024) |
|
1275
|
0 |
0 |
if ($byte eq $compare) { } |
|
1278
|
0 |
0 |
if $copies >= 255 |
|
1286
|
0 |
0 |
if ($copies >= 4) { } |