use strict;
package Archive::Zip::MockFileHandle;
sub new
{
my $class = shift || __PACKAGE__;
$class = ref($class) || $class;
my $self = bless( {
'position' => 0,
'size' => 0
}, $class );
return $self;
}
sub eof
{
my $self = shift;
return $self->{'position'} >= $self->{'size'};
}
sub print
{
my $self = shift;
my $bytes = join('', @_);
my $bytesWritten = $self->writeHook($bytes);
if ($self->{'position'} + $bytesWritten > $self->{'size'})
{
$self->{'size'} = $self->{'position'} + $bytesWritten
}
$self->{'position'} += $bytesWritten;
return $bytesWritten;
}
sub writeHook
{
my $self = shift;
my $bytes = shift;
return length($bytes);
}
sub binmode { 1 }
sub close { 1 }
sub clearerr { 1 }
sub read { 0 }
sub tell { return shift->{'position'} }
sub opened { 1 }
1;