| line |
true |
false |
branch |
|
54
|
0 |
0 |
unless my $sj = "Metabrik::String::Json"->new_from_brik_init($self) |
|
65
|
0 |
0 |
unless $self->brik_help_run_undef_arg("read", $input) |
|
69
|
0 |
0 |
unless my $data = $self->SUPER::read($input) |
|
79
|
0 |
0 |
unless $self->brik_help_run_undef_arg("read_next", $input) |
|
83
|
0 |
0 |
unless my $data = $self->SUPER::read_line($input) |
|
93
|
0 |
0 |
unless $self->brik_help_run_undef_arg("write", $json_hash) |
|
94
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("write", $json_hash, "ARRAY", "HASH") |
|
96
|
0 |
0 |
unless $self->brik_help_run_undef_arg("write", $output) |
|
101
|
0 |
0 |
ref $json_hash eq 'ARRAY' ? : |
|
105
|
0 |
0 |
unless my $data = $sj->encode($this) |
|
109
|
0 |
0 |
unless $self->SUPER::write(\@data, $output) |
|
119
|
0 |
0 |
unless $self->brik_help_run_undef_arg("is_valid", $input) |
|
121
|
0 |
0 |
unless my $data = $self->SUPER::read($input) |