| line |
true |
false |
branch |
|
240
|
0 |
1 |
-e $path ? : |
|
|
1 |
1 |
$write ? : |
|
245
|
0 |
2 |
unless $fh |
|
255
|
0 |
2 |
if defined $options->{'start'} |
|
269
|
1 |
1 |
unless $self->trim eq 'none' |
|
276
|
2 |
0 |
$path ? : |
|
282
|
1 |
3 |
unless (defined $self->{'end'}) |
|
285
|
0 |
1 |
unless $data_len > 0 |
|
306
|
2 |
7658 |
if (@_) |
|
309
|
2 |
0 |
if $option eq 'min' or $option eq 'max' |
|
328
|
0 |
3818 |
if (@_) |
|
338
|
0 |
0 |
if @_ |
|
344
|
1 |
0 |
if ($self->{'dirty'} and $self->{'write'}) |
|
356
|
1 |
1 |
unless $fh->read($header, 256) == 256 |
|
389
|
0 |
1 |
unless $fh->print($header) |
|
396
|
0 |
1 |
unless $self->max - $self->min |
|
400
|
1 |
0 |
if ($trim =~ /([a-z]+)(\d+)/) { } |
|
407
|
0 |
1 |
unless ($self->can($method)) |
|
421
|
1 |
0 |
$self->min > $mean - $stdev ? : |
|
422
|
1 |
0 |
$self->max < $mean + $stdev ? : |
|
431
|
0 |
3809 |
unless @_ == 2 |
|
438
|
0 |
0 |
unless @_ == 3 |
|
448
|
0 |
3809 |
unless $offset >= 256 |
|
449
|
0 |
3809 |
unless $self->seek($offset) |
|
451
|
0 |
3809 |
if (@_ == 2) { } |
|
|
3809 |
0 |
elsif (@_ == 1) { } |
|
456
|
0 |
0 |
unless $self->fh->print(pack('C*', ($scaled_value) x (($end - $position + 1) / $step))) |
|
457
|
0 |
0 |
if not exists $self->{'end'} or $self->{'end'} < $end |
|
463
|
0 |
3809 |
unless $self->fh->print(pack('C*', $scaled_value)) |
|
464
|
3809 |
0 |
if not exists $self->{'end'} or $self->{'end'} < $position |
|
470
|
0 |
0 |
unless $self->fh->read($buffer, 1) |
|
474
|
0 |
0 |
if ($scaled_value == 0 and (my $span = $self->span) > 1) |
|
476
|
0 |
0 |
unless $offset >= 256 |
|
477
|
0 |
0 |
unless $self->seek($offset) |
|
482
|
0 |
0 |
if $val eq "\000" |
|
502
|
0 |
0 |
unless @_ == 2 and ref $_[1] eq 'ARRAY' |
|
511
|
0 |
4 |
if (ref $_[0] and ref $_[0] eq 'ARRAY') { } |
|
521
|
0 |
0 |
unless 'MIME::Base64'->can('encode_base64') |
|
529
|
0 |
0 |
unless 'MIME::Base64'->can('decode_base64') |
|
562
|
1 |
0 |
if $e > $end |
|
581
|
2168 |
2832 |
unless (defined $v) |
|
582
|
56 |
2112 |
if (defined $last_val) |
|
590
|
0 |
2832 |
if (defined $last_val and $last_val != $v) |
|
598
|
1 |
0 |
if $last_val |
|
606
|
0 |
57 |
if ($fh) { } |
|
631
|
0 |
0 |
unless $self->fh->print(substr($wifdata, 264)) |
|
632
|
0 |
0 |
if not defined $self->{'end'} or $self->{'end'} < $end |
|
643
|
0 |
4 |
unless $start >= $data_start |
|
645
|
0 |
4 |
unless $end <= $self->end + $span |
|
656
|
0 |
4 |
if ($length / $samples > 100 and $step == 1) |
|
668
|
0 |
0 |
if (@bases) { } |
|
676
|
0 |
0 |
if not defined $max or $max < $_ |
|
693
|
0 |
4 |
if ($step == $span) { } |
|
707
|
5141 |
61 |
unless $value |
|
715
|
0 |
4 |
if defined $self->window and $self->window > 1 |
|
732
|
0 |
4 |
if length $packed_data < $length / $step |
|
747
|
4 |
0 |
if ($window_size < 2) { } |
|
769
|
0 |
0 |
$smoothing eq 'none' ? : |
|
|
0 |
0 |
$smoothing eq 'min' ? : |
|
|
0 |
0 |
$smoothing eq 'max' ? : |
|
|
0 |
0 |
$smoothing eq 'mean' ? : |
|
783
|
0 |
0 |
if $smoothing eq 'none' or $window < 2 |
|
787
|
0 |
0 |
unless $window % 2 |
|
803
|
0 |
4 |
if @_ |
|
811
|
0 |
0 |
unless defined $v |
|
815
|
0 |
0 |
$items ? : |
|
822
|
0 |
0 |
unless defined $v |
|
823
|
0 |
0 |
if not defined $max or $max < $v |
|
832
|
0 |
0 |
unless defined $v |
|
833
|
0 |
0 |
if not defined $min or $min > $v |
|
856
|
0 |
0 |
unless $fh->print($packed_data) |
|
859
|
0 |
0 |
if not exists $self->{'end'} or $self->{'end'} < $new_end |
|
869
|
0 |
3809 |
if (ref $values and ref $values eq 'ARRAY') { } |
|
873
|
0 |
0 |
if $v < 1 |
|
874
|
0 |
0 |
if $v > 255 |
|
880
|
0 |
3809 |
if $v < 1 |
|
881
|
0 |
3809 |
if $v > 255 |
|
892
|
4 |
0 |
if (ref $values and ref $values eq 'ARRAY') { } |
|
893
|
2926 |
2276 |
$_ ? : |
|
896
|
0 |
0 |
$values ? : |
|
902
|
2 |
3811 |
unless ($self->{'scale'}) |