#!/usr/bin/perl BEGIN{ require 5.006; } use ExtUtils::MakeMaker; # I’m keeping these separate, in case these modules should ever be dis- # tributed individually: %js_prq = ( CSS::DOM::Interface => 0, Encode => 0, Hash::Util::FieldHash::Compat => 0, HTML'DOM'EventTarget => 0.032, # new event handler model HTML::DOM::Interface => 0, Scalar::Util => 0, strict => 0, URI::Escape => 0, warnings => 0, WWW'Scripter => 0.022, # screen # for testing: lib => 0, Test::More => 0, URI::file => 0, ); #if($] < 5.0080071 && !eval 'use LWP::UserAgent 5.815; 1') { # $js_prq{'Bundle::LWP5_837'} = 0; #} #else { $js_prq{'LWP::UserAgent'} = 5.815; # handlers #} %je_prq = ( Carp => 0, Hash::Util::FieldHash::Compat => 0, HTML::DOM::Interface => 0.032, # UTF16 export JE => .038, # call_with JE::Destroyer => 0, Scalar::Util => 1.09, # refaddr strict => 0, warnings => 0, # for testing: HTML'DOM => 0.027, # document.write and node lists lib => 0, Test::More => 0, URI::file => 0, WWW'Scripter => .016, # event2sub and $@ # WWW'Scripter'Plugin'JavaScript => 0, ); eval{require HTML::DOM and VERSION HTML::DOM == 0.034} and $je_prq{HTML::DOM} = 0.035; # getElementById bug for(\(%js_prq, %je_prq)) { for $k(keys %$_) { $prq{$k} = $$_{$k} unless exists $prq{$k} and $$_{$k} < $prq{$k}; } } # Incompatibility between old HTML::DOM and new HTML::Tree eval{require HTML::DOM::Node and HTML::DOM::Node->VERSION < 0.051} and !eval{require HTML::Element} || VERSION HTML::Element >= 5 and $prq{"HTML::DOM::Node"} = 0.051; WriteMakefile( NAME => 'WWW::Scripter::Plugin::JavaScript', AUTHOR => 'Father Chrysostomos <sprout & cpan . org>', VERSION_FROM => 'lib/WWW/Scripter/Plugin/JavaScript.pm', # VERSION => "0.008a", ABSTRACT_FROM => 'lib/WWW/Scripter/Plugin/JavaScript.pm', PL_FILES => {}, PREREQ_PM => \%prq, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', TAR => 'COPYFILE_DISABLE=1 tar' }, clean => { FILES => 'WWW-Scripter-Plugin-JavaScript-*' }, );