Imported Upstream version 0.2.0

[tabix.git] / perl / TabixIterator.pm

diff --git a/perl/TabixIterator.pm b/perl/TabixIterator.pm
new file mode 100644 (file)
index 0000000..335194a
--- /dev/null
+++ b/perl/TabixIterator.pm
@@ -0,0 +1,41 @@
+package TabixIterator;
+
+use strict;
+use warnings;
+use Carp qw/croak/;
+
+require Exporter;
+
+our @ISA = qw/Exporter/;
+our @EXPORT = qw/tabix_iter_free/;
+
+our $VERSION = '0.2.0';
+
+require XSLoader;
+XSLoader::load('Tabix', $VERSION);
+
+sub new {
+  my $invocant = shift;
+  my $class = ref($invocant) || $invocant;
+  my $self = {};
+  bless($self, $class);
+  return $self;
+}
+
+sub set {
+  my ($self, $iter) = @_;
+  $self->{_} = $iter;
+}
+
+sub get {
+  my $self = shift;
+  return $self->{_};
+}
+
+sub DESTROY {
+  my $self = shift;
+  tabix_iter_free($self->{_}) if ($self->{_});
+}
+
+1;
+__END__