projects
/
tabix.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
# Manual page for bgzip.
[tabix.git]
/
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__