File Coverage

blib/lib/PDF/Make/Filter.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch			n/a
condition	21	32	65.6
subroutine	19	19	100.0
pod	14	16	87.5
total	84	97	86.6

package PDF::Make::Filter;

use strict;
use warnings;
use PDF::Make ();

our $VERSION = '0.03';

# Thin wrappers around the PDF::Make XS codec functions defined in xs/filter.xs.
# These let Perl tests exercise the ASCII85, ASCIIHex, Flate, Raw DEFLATE, LZW,
# RunLength and PNG/TIFF predictor implementations directly instead of only
# through the end-to-end writer/reader pipelines.

sub ascii85_encode  { PDF::Make::Filter::_ascii85_encode($_[0]) }
sub ascii85_decode  { PDF::Make::Filter::_ascii85_decode($_[0]) }
sub asciihex_encode { PDF::Make::Filter::_asciihex_encode($_[0]) }
sub asciihex_decode { PDF::Make::Filter::_asciihex_decode($_[0]) }

sub rle_encode      { PDF::Make::Filter::_rle_encode($_[0]) }
sub rle_decode      { PDF::Make::Filter::_rle_decode($_[0]) }

sub flate_encode    { PDF::Make::Filter::_flate_encode($_[0]) }
sub flate_decode    { PDF::Make::Filter::_flate_decode($_[0]) }

sub deflate_encode  { PDF::Make::Filter::_deflate_encode($_[0], $_[1] // 6) }
sub deflate_decode  { PDF::Make::Filter::_deflate_decode($_[0]) }

sub adler32         { PDF::Make::Filter::_adler32($_[0]) }

sub lzw_decode      {
    my ($data, %opts) = @_;
    PDF::Make::Filter::_lzw_decode($data, $opts{early_change} // 1);
}

sub predictor_encode {
    my %opt = @_;
    PDF::Make::Filter::_predictor_encode(
        $opt{predictor} // 10,
        $opt{colors}    // 1,
        $opt{bits}      // 8,
        $opt{columns}   // 1,
        $opt{data},
    );
}

sub predictor_decode {
    my %opt = @_;
    PDF::Make::Filter::_predictor_decode(
        $opt{predictor} // 10,
        $opt{colors}    // 1,
        $opt{bits}      // 8,
        $opt{columns}   // 1,
        $opt{data},
    );
}

sub tiff_predictor_encode {
    my %opt = @_;
    PDF::Make::Filter::_tiff_predictor_encode(
        $opt{colors} // 1, $opt{bits} // 8, $opt{columns} // 1, $opt{data},
    );
}

sub tiff_predictor_decode {
    my %opt = @_;
    PDF::Make::Filter::_tiff_predictor_decode(
        $opt{colors} // 1, $opt{bits} // 8, $opt{columns} // 1, $opt{data},
    );
}

1;

__END__