blib/lib/GD/SecurityImage.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 3 | 90 | 3.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
31 | 3 | 1 | 0 | exists $opt{'use_magick'} and $opt{'use_magick'} |
4 | 0 | 0 | exists $opt{'backend'} and $opt{'backend'} | |
72 | 0 | 0 | 0 | $opt{'text_location'} and ref $opt{'text_location'} |
0 | 0 | 0 | $opt{'text_location'} and ref $opt{'text_location'} and ref $opt{'text_location'} eq 'HASH' | |
185 | 0 | 0 | 0 | $user and length $user >= $$self{'_RNDMAX_'} |
206 | 0 | 0 | 0 | $$self{'IS_MAGICK'} && $data && $is_hex |
209 | 0 | 0 | 0 | $data && !$is_hex && !ref($data) && !($data =~ /[^0-9]/msx) && $data >= 0 |
226 | 0 | 0 | 0 | @rgb && $$self{'IS_MAGICK'} |
235 | 0 | 0 | 0 | $data && ref $data |
266 | 0 | 0 | 0 | $method eq 'normal' and not $$self{'gd_font'} |
line | l | !l | condition |
---|---|---|---|
113 | 0 | 0 | $opt{'width'} || 80 |
0 | 0 | $opt{'height'} || 30 | |
0 | 0 | $opt{'ptsize'} || 20 | |
0 | 0 | $opt{'lines'} || 10 | |
0 | 0 | $opt{'rnd_data'} || [0..9] | |
0 | 0 | $opt{'font'} || '' | |
0 | 0 | $self->gdf($opt{'gd_font'}) || '' | |
0 | 0 | $opt{'bgcolor'} || [(255, 255, 255)] | |
0 | 0 | $opt{'send_ctobg'} || 0 | |
0 | 0 | $opt{'scramble'} || 0 | |
0 | 0 | $opt{'angle'} || 0 | |
0 | 0 | $opt{'thickness'} || 0 | |
250 | 0 | 0 | shift() || 'normal' |
251 | 0 | 0 | shift() || 'default' |
252 | 0 | 0 | shift() || [0, 0, 0] |
253 | 0 | 0 | shift() || [0, 0, 0] |
293 | 0 | 0 | shift() || 1 |
375 | 0 | 0 | $$self{'_COLOR_'} || {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
55 | 0 | 0 | 0 | $GD::SecurityImage::BACKEND eq 'GD' || $GD::SecurityImage::BACKEND eq 'Magick' |
113 | 0 | 0 | 0 | $opt{'rndmax'} || $$self{'_RNDMAX_'} |
135 | 0 | 0 | 0 | ref $self || $self |
202 | 0 | 0 | 0 | shift() || croak('Empty parameter passed to cconvert') |
235 | 0 | 0 | 0 | not $data && ref $data or ref $data ne 'ARRAY' |
0 | 0 | 0 | not $data && ref $data or ref $data ne 'ARRAY' or $#{$data;} != 2 | |
239 | 0 | 0 | 0 | $$data[$i] > 255 or $$data[$i] < 0 |
292 | 0 | 0 | 0 | shift() || $big * 20 |