| 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 |