view release on metacpan or  search on metacpan

examples/example.pl  view on Meta::CPAN

#! /usr/bin/env perl

use lib qw+../blib/lib/+;
use Alien::BWIPP;
use Data::Dumper;

my $ean13 = new Alien::BWIPP::ean13;

open OUT, ">", "ean13.ps";
print OUT "% ean13 dependencies: " . $ean13->REQUIRES . "\n";
print OUT $ean13->post_script_source_code;

print OUT <<"END";
420 700 moveto (977147396801 05) (includetext guardwhitespace) /ean13 /uk.co.terryburton.bwipp findresource exec
0 -17 rmoveto (EAN-13) show