Acme-PDF-rescale

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
name:         Acme-PDF-rescale
version:      0.2
version_from: lib/Acme/PDF/rescale.pm
installdirs:  site
requires:
    Getopt::Lucid:                 0.16

distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.30_01

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
use strict;

WriteMakefile(
    NAME              => 'Acme::PDF::rescale',
    VERSION_FROM      => 'lib/Acme/PDF/rescale.pm', 
    PREREQ_PM         => { 'Getopt::Lucid' => 0.16 },
    EXE_FILES         => ['bin/pdfrescale'],
);

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:

bin/pdfrescale  view on Meta::CPAN

This manual was written for pdfrescale version 0.1.

=head1 SEE ALSO

L<Acme::PDF::rescale>

=cut

my $file = pop @ARGV;
my @specs = ( Param('--scale')->default(1), Param('--offset')->default('0 0'), Param('-o'), Param('--stop') );
my $opt = Getopt::Lucid->getopt(\@specs);
my $stop = $opt->get_stop();

print $usage and exit if $file eq '';

my $offset = $opt->get_offset();
my $scale = $opt->get_scale();
my $out = $opt->get_o();

$out = base_name($file) if $out eq '';
make_tex_file($out, $file, $scale, $offset);