import SOAP-WSDL 2.00.07 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.07 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.07.tar.gz
This commit is contained in:
committed by
Michael G. Schwern
parent
3de318be40
commit
bfc3247583
@@ -1,9 +1,20 @@
|
||||
use Benchmark qw(cmpthese);
|
||||
use Benchmark qw(cmpthese timethis timethese);
|
||||
use POSIX ();
|
||||
use Date::Format ();
|
||||
|
||||
my @time_from = localtime;
|
||||
|
||||
#use lib '../../lib';
|
||||
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::dateTime;
|
||||
|
||||
my $date = SOAP::WSDL::XSD::Typelib::Builtin::dateTime->new();
|
||||
timethese 10000, {
|
||||
'sprintf' => sub { $date->set_value('Dec 24 2004 CET'); }
|
||||
};
|
||||
|
||||
__END__
|
||||
|
||||
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";
|
||||
|
||||
Reference in New Issue
Block a user