File Coverage

blib/lib/PJVM/Class/Attribute/Exceptions.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	22	54.5

package PJVM::Class::Attribute::Exceptions;

use strict;
use warnings;

use Object::Tiny qw(
    exceptions_index_table
);

sub new_from_io {
    my ($pkg, $io, $cp) = @_;

    my $buff;

    # Number of exceptions
    read $io, $buff, 2;
    my $number_of_exceptions = unpack("n", $buff);

    read $io, $buff, $number_of_exceptions * 2;
    my @exceptions_index_table = unpack("n*", $buff);

    my $self = $pkg->new(
        exceptions_index_table => \@exceptions_index_table,
    );

    return $self;
}

1;
__END__