#!perl -w

use strict;
no strict "vars";

#taken from STBEY/Date-Calc-5.3/t/f000.t
#Modified line 36, changed the version number from 5.0 to 5.1

# ======================================================================
#   $version = $Carp::Clan::VERSION;
# ======================================================================

$Carp::Clan::VERSION               = $Carp::Clan::VERSION               = 0;

$tests = 2;

print "1..$tests\n";

$n = 1;

eval
{
    require Carp::Clan;
    Carp::Clan->import( qw(^Date::) );
};
if ($@)
{
    print "not ok $n\n";
    $n++;
    print "not ok $n\n";
}
else
{
    print "ok $n\n";
    $n++;
    if ($Carp::Clan::VERSION eq '5.1')
    {print "ok $n\n";} else {print "not ok $n\n";}
}
$n++;


__END__