Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

98 lines (68 sloc) 1.431 kB
package App::Ack::Plugin::Tar;
package App::Ack::Repository::Tar;
use Archive::Tar;
sub extensions_handled {
return qw( .tar .gz .tgz .tar.gz );
}
sub new {
my $class = shift;
my $filename = shift;
my $self = bless {
filename => $filename,
}, $class;
my $tar = Archive::Tar->new( $filename );
if ( !$tar ) {
return;
}
$self->{tar} = $tar;
$self->{files} = [$tar->get_files];
return $self;
}
sub next_resource {
my $self = shift;
my $file = shift @{$self->{files}};
return unless $file;
my $tar = $self->{tar};
my $res = App::Ack::Resource::Tar->new( $self->{filename}, $file->name, $file->get_content );
return $res;
}
sub close {
}
package App::Ack::Resource::Tar;
sub new {
my $class = shift;
my $tarname = shift;
my $filename = shift;
my $content = shift;
my $self = bless {
tarname => $tarname,
filename => $filename,
lines => [split( /\n/, $content )],
lineno => 0,
}, $class;
return $self;
}
sub is_binary {
return;
}
sub name {
my $self = shift;
return $self->{filename};
}
sub needs_line_scan {
1; # XXX Do actual looking
}
sub reset {
}
sub next_text {
my $self = shift;
$_ = shift @{$self->{lines}};
if ( defined $_ ) {
$. = $self->{lineno}++;
return 1;
}
return 0;
}
sub close {
}
1;
Jump to Line
Something went wrong with that request. Please try again.