File Coverage

blib/lib/Games/EternalLands/Binary/Unitvec16.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	27	29	93.1

package Games::EternalLands::Binary::Unitvec16;

use 5.010000;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
  pack_unitvec16 unpack_unitvec16
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';

require XSLoader;
XSLoader::load('Games::EternalLands::Binary::Unitvec16', $VERSION);

use Carp qw(croak);

sub pack_unitvec16 {
  croak "Expected array reference argument." if ref($_[0]) ne 'ARRAY';
  croak "Array must contain at least 3 elements." if @{$_[0]} < 3;
  return _pack_unitvec16($_[0]);
}

sub unpack_unitvec16 {
  return _unpack_unitvec16($_[0]);
}

1;
__END__