package SJT; use 5.010000; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw( ); our $VERSION = '0.01'; require XSLoader; XSLoader::load('SJT', $VERSION); sub new { my ($class) = @_; return bless { permutation => [2,2,2,2,2,2,2,2,2,2,2], },$class; }