use Carp;

sub UNIVERSAL::VERSION
{
    my $class          = shift;
    my $wanted_version = shift;
    my $fixed_version  = $wanted_version;
    my $caller         = caller();
    my $version_class;

    $fixed_version =~ s/\./_/g;
    $version_class = "${class}_${fixed_version}";

    eval <<"END_EVAL";

    package $caller;
    no $class;
    require $version_class;
    $version_class->import();

END_EVAL

    croak "Version $wanted_version of $class not found ($version_class): $@"
      if ($@);
}