view release on metacpan or  search on metacpan

bin/pdfrescale  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use Getopt::Lucid qw(:all);
use Acme::PDF::rescale qw(:all);

my ($x) = $0 =~ /\/(\w*)$/; 
my $usage = <<EOF
$x [options] file.pdf
$x is: 
 1) A pretext to upload something to the CPAN.
 2) A quick and dirty kluge to rescale a pdf file.

 Options are:
 --scale  <s>  scale (default 1)
 --offset <o>  offset (default '0mm 0mm')
 --stop        creates a .tex file and exit
 -o <nom>      name of output file (default : file-scaled.pdf)
EOF
;

=head1 NAME
  
pdfrescale - rescales pdf files

=head1 SYNOPSIS

pdfrescale [options] file.pdf

=head1 DESCRIPTION

pdfrescale was written as pretext to upload something to the CPAN.
It provides a quick and dirty kluge to rescale a pdf file.
 
Options are:

=over 4

=item B<--scale>  <s>  scale (default 1)

=item B<--offset> <o>  offset (default '0mm 0mm')

lib/Acme/PDF/rescale.pm  view on Meta::CPAN

Acme::PDF::rescale - A stupid module just to get trained with CPAN.

=head1 SYNOPSIS

  use Acme::PDF::rescale qw(:all);

=head1 DESCRIPTION

=head2 Overview

I just wrote this module to learn how to upload something on CPAN.

Anyway, you may find the L<pdfrescale> script useful. It is installed
with the module. It has its own documentation. It allows to rescale a
pdf file, using a dirty trick : it creates a LaTeX file and calls
pdflatex (uses the pdfpages package). 

=head2 Methods

Useless subs were written, so that there is actually a
module and not just a script. If you B<really> want to use this,