#!/usr/bin/perl
BEGIN { require 5.008005; } # utf8'encode that stringifies
use ExtUtils::MakeMaker;
my %lwp_prq = (
HTTP::Cookies => 5.833, # non-clobbering
# add_cookie_header
HTTP::Headers => 1.64, # repeated headers
HTTP::Headers::Util => 0,
HTTP::Request => 0,
LWP::Protocol => 0,
# for testing:
HTTP'Daemon => 0,
HTTP::Response => 0,
);
%prq = (
constant => 1.03, # multip. const. @ 1ce
constant::lexical => 0,
Encode => 2.09, # decode $ref
HTML::DOM::Event => 0,
HTML::DOM::Exception => 0,
HTML::DOM::Interface => 0,
Scalar::Util => 1.09,
URI => 1, # new_abs
URI::Escape => 0,
warnings => 0,
WWW'Scripter'Plugin'JavaScript => 0,
XML::DOM::Lite => .09,
# for testing:
File'Spec'Functions => 0,
HTML::DOM::Exception => .013, # code
JE => .041, # bind_class bug with
lib => 0, # array-like proxies
strict => 0,
Test::More => 0,
utf8 => 0,
WWW::Scripter => 0,
WWW'Scripter'Plugin'JavaScript => .002, # new init interface
);
# Avoid requiring JE if it isn’t going to be used.
eval{
require WWW'Scripter;
my $w = new WWW'Scripter;
$w->use_plugin("JavaScript");
$w->eval("1");
} and !exists $INC{"JE.pm"} and delete $prq{JE};
my $need_lwp5837;
if($] < 5.0080071) {
while(my($m,$v) = each %lwp_prq) {
if(!eval{"require $m"} || !eval{$m->VERSION($v)}) {
++$need_lwp5837; last;
}
}
}
if($need_lwp5837) {
$prq{'Bundle::LWP5_837'} = 0;
}
else {
%prq = (%prq, %lwp_prq);
}
WriteMakefile(
NAME => 'WWW::Scripter::Plugin::Ajax',
AUTHOR => 'Father Chrysostomos <sprout & cpan . org>',
VERSION_FROM => 'lib/WWW/Scripter/Plugin/Ajax.pm',
ABSTRACT_FROM => 'lib/WWW/Scripter/Plugin/Ajax.pm',
PL_FILES => {},
PREREQ_PM => \%prq,
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz',
TAR => 'COPYFILE_DISABLE=1 tar' },
clean => { FILES => 'WWW-Scripter-Plugin-Ajax-*' },
);