File Coverage

blib/lib/TeX/AutoTeX/ConcatPDF.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	2	0.0
condition	0	6	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	21	43	48.8

package TeX::AutoTeX::ConcatPDF;
#
# $Id: ConcatPDF.pm,v 1.2.2.7 2011/01/27 18:56:29 thorstens Exp $
# $Revision: 1.2.2.7 $
# $Source: /cvsroot/arxivlib/arXivLib/lib/TeX/AutoTeX/ConcatPDF.pm,v $
#
# $Date: 2011/01/27 18:56:29 $
# $Author: thorstens $
#
use strict;
### use warnings;

use version; our $VERSION = qv('0.94');
use parent qw(Exporter);
our @EXPORT_OK = qw(concatenate_pdf);

use CAM::PDF;
use Carp qw(croak carp);

sub concatenate_pdf {
  my ($combinedfile, $listref) = @_;

  return if @{$listref} < 2;

  my $combineddoc = CAM::PDF->new(shift @{$listref}) ||
    croak $CAM::PDF::errstr;

  foreach my $file (@{$listref}) {
    my $doc = CAM::PDF->new($file) || croak $CAM::PDF::errstr;
    carp 'Appending ', $doc->numPages(),
      ' page(s) to original ',$combineddoc->numPages(), ' page(s)';
    $combineddoc->appendPDF($doc);
  }
  $combineddoc->preserveOrder();
  $combineddoc->clearAnnotations();
  $combineddoc->cleanoutput($combinedfile);
  return;
}

1;

__END__