Blame internal/benchmarks/parse-1.dm6.pl

Packit 95306a
#!/usr/bin/perl
Packit 95306a
Packit 95306a
use Date::Manip::Date;
Packit 95306a
$date = new Date::Manip::Date;
Packit 95306a
Packit 95306a
@in = `cat parse-1.in`;
Packit 95306a
chomp(@in);
Packit 95306a
Packit 95306a
foreach $in (@in) {
Packit 95306a
   $date->parse($in);
Packit 95306a
}
Packit 95306a
Packit 95306a
# Local Variables:
Packit 95306a
# mode: cperl
Packit 95306a
# indent-tabs-mode: nil
Packit 95306a
# cperl-indent-level: 3
Packit 95306a
# cperl-continued-statement-offset: 2
Packit 95306a
# cperl-continued-brace-offset: 0
Packit 95306a
# cperl-brace-offset: 0
Packit 95306a
# cperl-brace-imaginary-offset: 0
Packit 95306a
# cperl-label-offset: 0
Packit 95306a
# End: