11 use_ok('Parse::Binary::Nested');
13 my $example = Parse::Binary::Nested->new([
21 ok($example, 'example parser');
22 my $data = $example->unpackf("\2foo\0!\0.rest");
23 is(ref $data, 'HASH', 'output structure');
24 is($data->{foos}->[1]->{period}, ord '.', 'sample element');
27 Parse::Binary::Nested->new(
28 [ lstr => 'Ca3', rest => 'a*' ]
30 { lstr => 'qu', rest => 'x' },
35 Parse::Binary::Nested->new(
36 [ ignoreme => 'x2X', value => 'xC' ]