File Coverage

blib/lib/SWF/BinStream/Codec/Zlib.pm

Criterion	Covered	Total	%
statement	34	37	91.8
branch	6	14	42.8
condition			n/a
subroutine	10	11	90.9
pod			n/a
total	50	62	80.6

package SWF::BinStream::Codec::Zlib;

use strict;

$SWF::BinStream::Codec::Zlib::VERSION = "0.01";

package SWF::BinStream::Codec::Zlib::Read;

use Compress::Zlib;
use Carp;

sub new {
    my $z = inflateInit() or croak "Can't create zlib stream";
    bless \$z, shift;
}


sub decode {
    my ($self, $data) = @_;

    my ($out, $status) = $$self->inflate(\$data);
    defined $out or croak "Zlib raised an error $status";
    $out;
}

sub close {
}

package SWF::BinStream::Codec::Zlib::Write;

use Compress::Zlib;
use Carp;

sub new {
    my $z = deflateInit() or croak "Can't create zlib stream ";
    bless \$z, shift;
}


sub encode {
    my ($self, $data) = @_;

    my ($out, $status) = $$self->deflate(\$data);
    defined $out or croak "Zlib raised an error $status (wm)";
    $out;
}

sub close {
    my ($self, $data) = @_;
    my $z = $$self;
    my ($out, $out1, $status);

    if ($data ne '') {
	($out, $status) = $z->deflate(\$data);
	defined $out or croak "Zlib raised an error $status (wc1)";
    }
    ($out1, $status) = $z->flush;
    defined $out1 or croak "Zlib raised an error $status (wc2)";
    $out .= $out1;
}

1;
__END__