← Index
NYTProf Performance Profile   « block view • line view • sub view »
For 01.HTTP.t
  Run on Tue May 4 15:25:55 2010
Reported on Tue May 4 15:26:06 2010

File /data/SimpleDB-Client/author.t/01.HTTP.t
Statements Executed 18
Statement Execution Time 15.0ms
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1114.92ms34.6msmain::::BEGIN@1main::BEGIN@1
0000s0smain::::RUNTIMEmain::RUNTIME
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
13171µs237.6ms
# spent 34.6ms (4.92+29.7) within main::BEGIN@1 which was called # once (4.92ms+29.7ms) by main::RUNTIME at line 1
use Test::More tests => 4;
# spent 34.6ms making 1 call to main::BEGIN@1 # spent 2.97ms making 1 call to Test::Builder::Module::import
2314.7ms215.4msuse lib '../lib';
# spent 15.3ms making 1 call to main::BEGIN@2 # spent 83µs making 1 call to lib::import
3
413µs1511msuse_ok('SimpleDB::Client');
# spent 511ms making 1 call to Test::More::use_ok
5
612µsmy $access = $ENV{AWS_ACCESS_KEY};
712µsmy $secret = $ENV{AWS_SECRET_ACCESS_KEY};
8
91500nsunless (defined $access && defined $secret) {
10 die "You need to set environment variables AWS_ACCESS_KEY and AWS_SECRE_ACCESST_KEY to run these tests.";
11}
12
1314µs114.6msmy $http = SimpleDB::Client->new(secret_key=>$secret, access_key=>$access);
# spent 14.6ms making 1 call to SimpleDB::Client::new
1415µs1559µsisa_ok($http, 'SimpleDB::Client');
# spent 559µs making 1 call to Test::More::isa_ok
15115µs2205msok($http->send_request('CreateDomain',{DomainName=>'yyyy'}), 'try creating a domain');
# spent 204ms making 1 call to SimpleDB::Client::send_request # spent 486µs making 1 call to Test::More::ok
16
1714µs159.8msmy $result = $http->send_request('ListDomains');
# spent 59.8ms making 1 call to SimpleDB::Client::send_request
1812µsmy $domains = $result->{ListDomainsResult}{DomainName};
1912µsunless (ref $domains eq 'ARRAY') {
20 $domains = [$domains];
21}
22
23111µs1414µsok(grep({$_ eq 'yyyy'} @{$domains}), 'got created domain');
# spent 414µs making 1 call to Test::More::ok
24
251118µs1103ms$http->send_request('DeleteDomain', {DomainName=>'xxxx'});
# spent 103ms making 1 call to SimpleDB::Client::send_request
26