use strict; use warnings FATAL => 'all'; package MarpaX::Java::ClassFile::Struct::LocalVariableTableAttribute; use MarpaX::Java::ClassFile::Util::ArrayStringification qw/arrayStringificator/; use MarpaX::Java::ClassFile::Struct::_Base -tiny => [qw/_constant_pool attribute_name_index attribute_length local_variable_table_length local_variable_table/], '""' => [ [ sub { 'Local variable count' } => sub { $_[0]->local_variable_table_length } ], [ sub { 'Local variable' } => sub { $_[0]->arrayStringificator($_[0]->local_variable_table) } ] ]; # ABSTRACT: Exceptions_attribute our $VERSION = '0.009'; # VERSION our $AUTHORITY = 'cpan:JDDPAUSE'; # AUTHORITY use MarpaX::Java::ClassFile::Struct::_Types qw/U2 U4 LocalVariable/; use Types::Standard qw/ArrayRef/; has _constant_pool => ( is => 'rw', required => 1, isa => ArrayRef); has attribute_name_index => ( is => 'ro', required => 1, isa => U2 ); has attribute_length => ( is => 'ro', required => 1, isa => U4 ); has local_variable_table_length => ( is => 'ro', required => 1, isa => U2 ); has local_variable_table => ( is => 'ro', required => 1, isa => ArrayRef[LocalVariable] ); 1; __END__ =pod =encoding UTF-8 =head1 NAME MarpaX::Java::ClassFile::Struct::LocalVariableTableAttribute - Exceptions_attribute =head1 VERSION version 0.009 =head1 AUTHOR Jean-Damien Durand =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2016 by Jean-Damien Durand. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut