perl/TabixIterator.pm

   1 package TabixIterator;
   2
   3 use strict;
   4 use warnings;
   5 use Carp qw/croak/;
   6
   7 require Exporter;
   8
   9 our @ISA = qw/Exporter/;
  10 our @EXPORT = qw/tabix_iter_free/;
  11
  12 our $VERSION = '0.2.0';
  13
  14 require XSLoader;
  15 XSLoader::load('Tabix', $VERSION);
  16
  17 sub new {
  18   my $invocant = shift;
  19   my $class = ref($invocant) || $invocant;
  20   my $self = {};
  21   bless($self, $class);
  22   return $self;
  23 }
  24
  25 sub set {
  26   my ($self, $iter) = @_;
  27   $self->{_} = $iter;
  28 }
  29
  30 sub get {
  31   my $self = shift;
  32   return $self->{_};
  33 }
  34
  35 sub DESTROY {
  36   my $self = shift;
  37   tabix_iter_free($self->{_}) if ($self->{_});
  38 }
  39
  40 1;
  41 __END__