view release on metacpan or  search on metacpan

lib/Archive/Zip/BufferedFileHandle.pm  view on Meta::CPAN

    my $bytesWritten =
      ($offset + $len > $bufLen)
      ? $bufLen - $offset
      : $len;
    substr($self->{content}, $self->{position}, $bytesWritten) =
      substr($$buf, $offset, $bytesWritten);
    $self->{size} = length($self->{content});
    return $bytesWritten;
}

sub clearerr() { 1 }

1;

t/08_readmember_record_sep.t  view on Meta::CPAN

use Archive::Zip qw();
use Archive::Zip::MemberRead;

use lib 't';
use common;

my $nl = $^O eq 'MSWin32' ? "\r\n" : "\n";

# normalize newlines for the platform we are running on
sub norm_nl($) { local $_ = shift; s/\r?\n/$nl/g; return $_; }

my $data = norm_nl(<<"EOF");
One Line
Two Lines
</tag>
Three Lines
Four Lines
Five Lines
</tag>
Quant