import SOAP-WSDL 2.00.02 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.02 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.02.tar.gz
This commit is contained in:
committed by
Michael G. Schwern
parent
745ce925c1
commit
915ee03cbe
@@ -0,0 +1,24 @@
|
||||
use Benchmark qw(cmpthese);
|
||||
use POSIX ();
|
||||
use Date::Format ();
|
||||
|
||||
my @time_from = localtime;
|
||||
|
||||
print "Comparing POSIX::strftime and Date::Format::strftime '%Y-%m-%dT%H:%M:%S%z'\n\n";
|
||||
print 'POSIX: ', POSIX::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from), "\n";
|
||||
print 'Date::Format: ', Date::Format::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from), "\n";
|
||||
|
||||
|
||||
cmpthese 100000, {
|
||||
POSIX => sub { POSIX::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from) },
|
||||
'Date::Format' => sub { Date::Format::strftime('%Y-%m-%dT%H:%M:%S%z', @time_from) },
|
||||
};
|
||||
|
||||
__END__
|
||||
|
||||
results with perl-5.8.8 on Ubuntu 8.04 on a Thinkpad T42 (1.7GHz Dothan):
|
||||
|
||||
Rate Date::Format POSIX
|
||||
Date::Format 10684/s -- -93%
|
||||
POSIX 153846/s 1340% --
|
||||
|
||||
Reference in New Issue
Block a user