The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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;