/swatch-3.2.3/t/01cpan_modules.t

 1
 2BEGIN { $| = 1; $tx=1; print "1..1\n"; }
 3END {print "not ok 1\n" unless $loaded;}
 4
 5use Time::HiRes 1.12;
 6use Date::Calc;
 7use Date::Format;
 8use File::Tail;
 9
10$loaded=1;
11
12sub ok { print "ok $tx\n"; $tx++; }
13sub not_ok { print "not ok $tx\n"; $tx++; }
14
15ok;
16