| line |
true |
false |
branch |
|
63
|
0 |
0 |
if (not defined $from and defined $values) { }
|
|
|
0 |
0 |
elsif (not defined $from and defined $filename) { }
|
|
65
|
0 |
0 |
ref $_ ? :
|
|
71
|
0 |
0 |
if $from->Read($filename)
|
|
74
|
0 |
0 |
if scalar keys %opts
|
|
76
|
0 |
0 |
unless ($done)
|
|
77
|
0 |
0 |
unless defined $from
|
|
79
|
0 |
0 |
if ($from->isa("Image::Magick"))
|
|
96
|
0 |
0 |
if ($from->isa('Barcode::ZBar::Image')) { }
|
|
105
|
0 |
0 |
if ($raw_type eq $symbol->QRCODE) { }
|
|
|
0 |
0 |
elsif ($raw_type eq $symbol->EAN13) { }
|
|
|
0 |
0 |
elsif ($raw_type eq $symbol->EAN8) { }
|
|
115
|
0 |
0 |
if not defined $max_quality or $max_quality < $raw_quality
|
|
131
|
0 |
0 |
if (defined $filter_type)
|
|
135
|
0 |
0 |
if (defined $filter_data)
|
|
136
|
0 |
0 |
if (ref $filter_data eq 'CODE') { }
|
|
143
|
0 |
0 |
if (wantarray) { }
|
|
148
|
0 |
0 |
unless scalar @res
|
|
153
|
0 |
0 |
if not defined $max_length or $max_length < $length
|
|
170
|
0 |
1 |
if (defined(my $from = delete $opts{'from'}))
|
|
172
|
0 |
0 |
if defined $self
|
|
174
|
0 |
0 |
if (eval {
|
|
178
|
0 |
0 |
if (eval {
|
|
|
0 |
0 |
elsif (eval {
|
|
|
0 |
0 |
elsif (eval {
|
|
|
0 |
0 |
elsif (eval {
|
|
195
|
0 |
1 |
unless defined $opts{'type'}
|
|
196
|
0 |
1 |
unless defined $opts{'data'}
|
|
211
|
0 |
0 |
if scalar keys %opts
|
|
222
|
0 |
2 |
if scalar keys %opts
|
|
233
|
0 |
0 |
if scalar keys %opts
|
|
234
|
0 |
0 |
unless defined $type
|
|
236
|
0 |
0 |
if (ref $type and not exists $_type_info{$type})
|
|
238
|
0 |
0 |
if $self->{'type'} == $t
|
|
251
|
0 |
0 |
if scalar keys %opts
|
|
254
|
0 |
0 |
if ($self->has_type([]))
|
|
264
|
0 |
0 |
unless ($success)
|
|
270
|
0 |
0 |
if ($self->has_type([()])) { }
|
|
|
0 |
0 |
elsif ($self->has_type([()])) { }
|
|
|
0 |
0 |
elsif ($self->has_type([()])) { }
|
|
278
|
0 |
0 |
if (defined $type)
|
|
286
|
0 |
0 |
unless open my $out, ">", $filename
|
|
294
|
0 |
0 |
unless ($success)
|
|
305
|
1 |
4 |
unless (defined $aliases)
|
|
316
|
1 |
4 |
if (not scalar @args and ref $self)
|
|
320
|
1 |
4 |
unless (scalar @args)
|
|
329
|
2 |
3 |
if (wantarray) { }
|
|
332
|
0 |
3 |
unless scalar @ret == 1
|
|
342
|
0 |
0 |
unless (exists $self->{'ise'})
|
|
345
|
0 |
0 |
if (defined $self->{'result'}) { }
|
|
349
|
0 |
0 |
if ($self->has_type([]))
|
|
352
|
0 |
0 |
if ($data =~ /^[0-9a-fA-F]{8}-(?:[0-9a-fA-F]{4}-){3}[0-9a-fA-F]{12}$/u or $data =~ /^[1-3](?:\.(?:0|[1-9][0-9]*))+$/u) { }
|
|
|
0 |
0 |
elsif ($data =~ m[^https://uriid\.org/]u) { }
|
|
367
|
0 |
0 |
unless (exists $self->{'displayname'})
|
|
372
|
0 |
0 |
if defined $self->{'result'}
|
|
373
|
0 |
0 |
if defined $self->{'ise'}
|
|
376
|
0 |
0 |
if defined $self->{'displayname'}
|
|
386
|
0 |
0 |
if $self->has_type([])
|