WriteMakefile(
NAME => 'Test::Bin',
VERSION_FROM => 'lib/Test/Bin.pm', # finds $VERSION
PREREQ_PM => {}, # e.g., Module::Name => 1.1
PL_FILES =>
{ 'bin/test.PL $(INSTALLSITELIB) $(INSTALLSITEARCH)'
=> 'lib/Test/Bin.pm' },
);
####
package Test::Bin;
use 5.008002;
use strict;
use warnings;
use '###LIBPREFIX###'; # Use some easily matchable phrases
use '###ARCPREFIX###';
1;
__END__
##
##
#!/usr/bin/perl -w -pi~
# Use command line options to read and write file(s).
use strict;
our ($lib, $arc);
BEGIN {
$lib = shift @ARGV; # Shift off the arguments so they are
$arc = shift @ARGV; # not processed as files
}
s/\Q###LIBPREFIX###\E/$lib/; # perform substitutions
s/\Q###ARCPREFIX###\E/$arc/;
1;
__END__
##
##
package Test::Bin;
use 5.008002;
use strict;
use warnings;
use '/home/orderthruchaos/local/lib/perl5/site_perl/5.8.2';
use '/home/orderthruchaos/local/lib/perl5/site_perl/5.8.2/i686-linux';
require Exporter;
our $VERSION = '0.01';
1;
__END__