| line |
true |
false |
branch |
|
33
|
0 |
1 |
ref $data eq 'Data::AMF::IO' ? : |
|
36
|
0 |
1 |
unless my $p = [sub {
my $io = shift();
$io->read_double;
}
, sub {
my $io = shift();
$io->read_u8 ? 1 : 0;
}
, sub {
my $io = shift();
$io->read_utf8;
}
, sub {
my $io = shift();
my $obj = {};
push @{$io->refs;}, $obj;
while (1) {
my $len = $io->read_u16;
if ($len == 0) {
$io->read_u8;
return $obj;
} ;
my $key = $io->read($len);
my $value = 'Data::AMF::Parser::AMF0'->parse_one($io);
$$obj{$key} = $value;
} ;
$obj;
}
, sub {
}
, sub {
undef;
}
, sub {
undef;
}
, sub {
my $io = shift();
my $index = $io->read_u16;
return unless $io->refs->[$index];
}
, sub {
my $io = shift();
my $count = $io->read_u32;
parse_object($io);
}
, sub {
}
, sub {
my $io = shift();
my $count = $io->read_u32;
my @res;
foreach $_ (1 .. $count) {
push @res, 'Data::AMF::Parser::AMF0'->parse_one($io);
} ;
my $array = \@res;
push @{$io->refs;}, $array;
$array;
}
, sub {
my $io = shift();
my $msec = $io->read_double;
my $tz = $io->read_s16;
$msec;
}
, sub {
my $io = shift();
$io->read_utf8_long;
}
, sub {
}
, sub {
}
, sub {
parse_long_string(shift());
}
, sub {
my $io = shift();
my $class = $io->read_utf8;
parse_object($io);
}
, sub {
my $io = shift();
my $parser = 'Data::AMF::Parser::AMF3'->new;
$$parser{'io'} = $io;
$parser->read;
}
]->[$marker] |
|
47
|
0 |
0 |
ref $data eq 'Data::AMF::IO' ? : |
|
50
|
0 |
0 |
unless defined $marker |
|
52
|
0 |
0 |
unless my $p = [sub {
;
}
, sub {
;
}
, sub {
;
}
, sub {
;
}
, sub {
}
, sub {
;
}
, sub {
;
}
, sub {
;
}
, sub {
;
}
, sub {
}
, sub {
;
}
, sub {
;
}
, sub {
;
}
, sub {
}
, sub {
}
, sub {
;
}
, sub {
;
}
, sub {
;
}
]->[$marker] |
|
65
|
0 |
0 |
$io->read_u8 ? : |
|
83
|
0 |
0 |
if ($len == 0) |
|
110
|
0 |
0 |
unless $io->refs->[$index] |