Stopping redefined subroutine warnings.

.gitignore

@@ -0,0 +1,58 @@
+#### General stuff
+/tabix
+/bgzip
+/perl/Tabix*.c
+
+#### C stuff
+# Object files
+*.o
+*.ko
+*.obj
+*.elf
+
+# Precompiled Headers
+*.gch
+*.pch
+
+# Libraries
+*.lib
+*.a
+*.la
+*.lo
+
+# Shared objects (inc. Windows DLLs)
+*.dll
+*.so
+*.so.*
+*.dylib
+
+# Executables
+*.exe
+*.out
+*.app
+*.i*86
+*.x86_64
+*.hex
+
+#### Perl stuff
+/perl/blib/
+/perl/.build/
+/perl/_build/
+/perl/cover_db/
+/perl/inc/
+/perl/Build
+/perl/!Build/
+/perl/Build.bat
+/perl/.last_cover_stats
+/perl/Makefile
+/perl/Makefile.old
+/perl/MANIFEST.bak
+/perl/META.yml
+/perl/META.json
+/perl/MYMETA.*
+nytprof.out
+/perl/pm_to_blib
+*.o
+*.bs
+
+/.perl-version

perl/MANIFEST

@@ -2,7 +2,6 @@ MANIFEST
 typemap
 Tabix.xs
 Tabix.pm
-TabixIterator.pm
 Makefile.PL
 t/01local.t
 t/02remote.t

perl/Tabix.pm

@@ -4,8 +4,6 @@ use strict;
 use warnings;
 use Carp qw/croak/;
 
-use TabixIterator;
-
 require Exporter;
 
 our @ISA = qw/Exporter/;
@@ -72,5 +70,33 @@ sub getnames {
   return tabix_getnames($self->{_});
 }
 
+package TabixIterator;
+
+use strict;
+use warnings;
+
+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::tabix_iter_free($self->{_}) if ($self->{_});
+}
+
 1;
 __END__

perl/Tabix.xs

@@ -62,8 +62,6 @@ tabix_getnames(t)
 		XPUSHs(sv_2mortal(newSVpv(names[i], 0)));
 	free(names);
 
-MODULE = Tabix PACKAGE = TabixIterator
-
 void
 tabix_iter_free(iter)
 	ti_iter_t iter