use strict;
use warnings;
-use Parse::Binary::Nested;
+use Parse::Binary::Nested qw(unpackf);
our %MAGICID = (
"WormEdit053\000LVL" => 53,
# convert to an easily accessible hash
push @FORMAT, -trail => 'a*';
- my $data = Parse::Binary::Nested->new(\@FORMAT)->unpackf($input);
+ my $data = unpackf(\@FORMAT, $input);
warn "Trailing data left unparsed\n" if length delete $data->{-trail};
$data->{format} = 'WormEdit';
return $data;
use List::Util qw(sum min max);
use Data::Dumper;
-use Parse::Binary::Nested;
+use Parse::Binary::Nested qw(unpackf);
sub read {
my ($self, $input) = @_;
}
}
- my $data = Parse::Binary::Nested->new(\@FORMAT)->unpackf($input);
+ my $data = unpackf(\@FORMAT, $input);
my $offset = 0;
$offsetbase += 1 + @{ $data->{sprite} } if $data->{sprite};
$data->{moderef}->{offset}->{single} == $offsetbase