File Coverage

blib/lib/Archive/Tar/Streamed.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	3	4	75.0
condition	2	2	100.0
subroutine	10	10	100.0
pod	2	4	50.0
total	51	54	94.4

package Archive::Tar::Streamed;
use strict;

BEGIN {
	use vars qw ($VERSION @ISA);
	$VERSION     = 0.03;
}

use Archive::Tar;
use Archive::Tar::Constant;
use Carp;

sub new {
	my ($pkg,$arch) = @_;

	bless {file => $arch}, $pkg;
}

sub add {
    my $self = shift;

    my $arch = Archive::Tar->new;
    $arch->add_files(@_) or croak "add: $!";
    my $tf = $arch->write;
    syswrite $self->{file}, $tf, length($tf) - (BLOCK * 2);
}

sub next {
    my $self = shift;

    $self->{pending} ||= [];
    return shift @{$self->{pending}} if @{$self->{pending}};
    my $arch = Archive::Tar->new;
    my ($fil,@pend) = $arch->read( $self->{file}, 0, {limit => 1});
    $self->{pending} = \@pend;
    $fil;
}

sub writeeof {
    my $self = shift;

    syswrite $self->{file},TAR_END;
}

1;
__END__