BEGIN { eval 'use version'; if ($EVAL_ERROR) { die 'Modwheel requires the version module. ' . 'You can download version from CPAN: ' . "http://search.cpan.org/~jpeacock/version-0.71/.\n" ; } eval "use Readonly"; if ($EVAL_ERROR) { die 'Apache2::Modwheel requires the Readonly module. ' . 'You can download Readonly from CPAN: ' . "http://search.cpan.org/~roode/Readonly-1.03/\n" ; } }
use version; use Readonly;
my $v = version->new;
Readonly my $MAIN_DIST_FILE => 'lib/Apache2/Modwheel.pm';
my $modwheel_version = ExtUtils::MM_Unix->parse_version($MAIN_DIST_FILE); my $modwheel_numified_version = version->new($modwheel_version)->numify;