package Date::Manip; use warnings; use strict; use Carp; use Exporter; # our @ISA; our @EXPORT; my $backend; if ($] >= 5.010) { $backend = 'Date::Manip::Perl5010'; } elsif ($] >= 5.008) { $backend = 'Date::Manip::Perl5008'; } elsif ($] >= 5.006) { $backend = 'Date::Manip::Perl5006'; } else { croak("Perl $] isn't supported\n"); } my $backend_exp = $backend . "::EXPORT"; eval "require $backend; $backend->import(); return 1;" or croak "$@"; { no strict qq{refs}; @EXPORT = @{$backend_exp}; } unshift (@ISA, $backend); # 1;