line |
true |
false |
branch |
13
|
0 |
2 |
$ENV{'PDL_IO_SEREAL_DEBUG'} ? : |
29
|
1 |
1 |
if grep {/^(:all|wsereal)$/;} @_ |
33
|
1 |
1 |
if @_ |
61
|
2 |
0 |
if (ref $self->hdr eq 'HASH') |
64
|
0 |
2 |
if ($self->isa('HASH')) |
66
|
0 |
0 |
if $_ eq 'PDL' |
70
|
0 |
2 |
if ($self->badflag) |
74
|
0 |
2 |
if $self->hdrcpy |
80
|
0 |
2 |
unless ref $data eq 'HASH' and &looks_like_number($data->{'version'}) |
81
|
2 |
0 |
if ($data->{'version'} == 1) { } |
82
|
0 |
2 |
unless defined $data->{'type_name'} and not ref $data->{'type_name'} |
83
|
0 |
2 |
unless defined $data->{'type_size'} and &looks_like_number($data->{'type_size'}) |
84
|
0 |
2 |
unless ref $data->{'dims'} eq 'ARRAY' |
85
|
0 |
2 |
unless defined $data->{'native_one'} and not ref $data->{'native_one'} |
86
|
0 |
2 |
unless defined $data->{'packed_data'} and not ref $data->{'packed_data'} |
88
|
0 |
2 |
unless $type |
90
|
0 |
2 |
unless $type_sz == $data->{'type_size'} |
92
|
0 |
2 |
unless $native_one == 16777216 or $native_one == 1 |
93
|
0 |
2 |
$native_one == 16777216 ? : |
96
|
0 |
2 |
unless length $$dataref == length $data->{'packed_data'} |
98
|
0 |
2 |
if ($do_swap and $type_sz > 1) |
99
|
0 |
0 |
if $type_sz == 2 |
100
|
0 |
0 |
if $type_sz == 4 |
101
|
0 |
0 |
if $type_sz == 8 |
104
|
2 |
0 |
if (ref $data->{'hash_hdr'} eq 'HASH') |
107
|
0 |
2 |
if ($pdl->isa('HASH') and ref $data->{'hash_main'} eq 'HASH') |
109
|
0 |
0 |
if $_ eq 'PDL' |
113
|
0 |
2 |
if ($data->{'bad_flag'}) |
115
|
0 |
0 |
if defined $data->{'bad_value'} |
117
|
0 |
2 |
if $data->{'hdrcpy_flag'} |
127
|
0 |
1 |
unless open my $fh, '<', $filename |
133
|
0 |
1 |
unless defined $rv |
139
|
0 |
1 |
unless open my $fh, '>', $filename |
141
|
0 |
1 |
if not defined $rv |