Commits

Marcin Kasperski committed a5b45f7

extra docs

Comments (0)

Files changed (1)

print_in_parts.pl

 #!/usr/bin/perl -w
 #
-# Print given file in pieces 20 pages each (workaround
-# for unknown bug in my printer)
+# Print given .pdf file in pieces, 20 pages each, waiting for
+# the end of earlier part before sending next one.
+#
+# Requires modern Linux printing tools (lp and lpstat, I test the
+# script on Ubuntu with CUPS), uses default printer configured on
+# the machine.
+#
+# Requires also perl plus Moose, MooseX::Getopt, and PDF::API2
+# modules.
 
 package PrintMe;
 use Moose;
 with 'MooseX::Getopt';
 
 has 'file' => (is => 'ro', isa=>'Str', required => 1,
-               documentation => 'File to print');
+               documentation => 'File to print (something.pdf)');
 has 'split' => (is => 'ro', isa=>'Int', required => 1,
                 default => sub { 20 },
-                documentation => 'Split every ... pages');
+                documentation => 'Split every ... pages (default: 20)');
 has 'since' => (is => 'ro', isa=>'Int', required => 1,
                 default => sub { 1 },
-                documentation => 'Start from page ...');
+                documentation => 'Start from page ... (default: 1)');
 has 'verbose' => (is => 'ro', isa=>'Bool', required => 0, default => 0,
                   documentation => "Be more verbose");