1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#!perl -w
BEGIN { eval { require bytes; }; }
use strict;
no strict "vars";
# ======================================================================
# $version = $Carp::Clan::VERSION;
# $version = $Date::Calc::VERSION;
# $version = &Date::Calc::Version();
# $version = $Date::Calc::Object::VERSION;
# $version = $Date::Calendar::Profiles::VERSION;
# $version = $Date::Calendar::Year::VERSION;
# $version = $Date::Calendar::VERSION;
# ======================================================================
$Carp::Clan::VERSION = $Carp::Clan::VERSION = 0;
$Date::Calc::VERSION = $Date::Calc::VERSION = 0;
$Date::Calc::Object::VERSION = $Date::Calc::Object::VERSION = 0;
$Date::Calendar::Profiles::VERSION = $Date::Calendar::Profiles::VERSION = 0;
$Date::Calendar::Year::VERSION = $Date::Calendar::Year::VERSION = 0;
$Date::Calendar::VERSION = $Date::Calendar::VERSION = 0;
$Bit::Vector::VERSION = $Bit::Vector::VERSION = 0;
$tests = 9;
eval { require Bit::Vector; };
unless ($@) { $tests += 6; }
print "1..$tests\n";
$n = 1;
eval
{
require Carp::Clan;
Carp::Clan->import( qw(^Date::) );
};
unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($Carp::Clan::VERSION >= 5.3)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
eval
{
require Date::Calc;
Date::Calc->import( qw(:all) );
};
unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($Date::Calc::VERSION eq '6.0')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if (&Date::Calc::Version() eq '6.0')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
eval
{
require Date::Calc::Object;
Date::Calc::Object->import( qw(:all) );
};
unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($Date::Calc::Object::VERSION eq '6.0')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
eval
{
require Date::Calendar::Profiles;
Date::Calendar::Profiles->import( qw( $Profiles ) );
};
unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($Date::Calendar::Profiles::VERSION eq '6.0')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
exit 0 if $n > $tests;
if ($Bit::Vector::VERSION >= '7.0')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if (&Bit::Vector::Version() >= '7.0')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
eval
{
require Date::Calendar::Year;
Date::Calendar::Year->import( qw(:all) );
};
unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($Date::Calendar::Year::VERSION eq '6.0')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
eval
{
require Date::Calendar;
Date::Calendar::Year->import( qw() );
};
unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($Date::Calendar::VERSION eq '6.0')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
__END__
|