File Coverage

blib/lib/Acme/Thoroughly/Modern/Perl.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Acme::Thoroughly::Modern::Perl;

use strict;
use warnings;

our $VERSION = 'v0.4.1';

my @now = localtime();
my $yr  = $now[5] - 100;

# This actually calculates what might be the current minimum version
# for years >= 2010.
my $mver = ( ( $yr - 10 ) * 2 ) + 10;

# just in case there is a boundary case, wrap the test in a do/while
# and step it up as needed.
my $req_str;
do {
    $mver += 2;    # skip over devel releases
    my $verstr = sprintf( "%0.3f", 5 + ( $mver * .001 ) );
    $req_str = "require $verstr";
} while ( eval "$req_str" );

# we need to warn and exit, and NOT die, if we want to more closely emulate
# what is actually printed for a real failue. we exit with 255 because
# that is what perl does. (but override in a test environment since it would
# really suck to have 100% failures on the test matrix!)
unless ( $ENV{ATMP_TEST} ) {
    warn "$@\n";
    exit 255;
}

1;

__END__