Profile of /data/SimpleDB-Client/author.t/01.HTTP.t

← 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
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 4.92ms | 34.6ms | main::::BEGIN@1main::BEGIN@1
0 | 0 | 0 | 0s | 0s | main::::RUNTIMEmain::RUNTIME

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 | 3 | 171µs | 2 | 37.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
2 | 3 | 14.7ms | 2 | 15.4ms | use lib '../lib'; # spent 15.3ms making 1 call to main::BEGIN@2 # spent 83µs making 1 call to lib::import
3 |  |  |  |  |
4 | 1 | 3µs | 1 | 511ms | use_ok('SimpleDB::Client'); # spent 511ms making 1 call to Test::More::use_ok
5 |  |  |  |  |
6 | 1 | 2µs |  |  | my $access = $ENV{AWS_ACCESS_KEY};
7 | 1 | 2µs |  |  | my $secret = $ENV{AWS_SECRET_ACCESS_KEY};
8 |  |  |  |  |
9 | 1 | 500ns |  |  | unless (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 |  |  |  |  |
13 | 1 | 4µs | 1 | 14.6ms | my $http = SimpleDB::Client->new(secret_key=>$secret, access_key=>$access); # spent 14.6ms making 1 call to SimpleDB::Client::new
14 | 1 | 5µs | 1 | 559µs | isa_ok($http, 'SimpleDB::Client'); # spent 559µs making 1 call to Test::More::isa_ok
15 | 1 | 15µs | 2 | 205ms | ok($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 |  |  |  |  |
17 | 1 | 4µs | 1 | 59.8ms | my $result = $http->send_request('ListDomains'); # spent 59.8ms making 1 call to SimpleDB::Client::send_request
18 | 1 | 2µs |  |  | my $domains = $result->{ListDomainsResult}{DomainName};
19 | 1 | 2µs |  |  | unless (ref $domains eq 'ARRAY') {
20 |  |  |  |  | $domains = [$domains];
21 |  |  |  |  | }
22 |  |  |  |  |
23 | 1 | 11µs | 1 | 414µs | ok(grep({$_ eq 'yyyy'} @{$domains}), 'got created domain'); # spent 414µs making 1 call to Test::More::ok
24 |  |  |  |  |
25 | 1 | 118µs | 1 | 103ms | $http->send_request('DeleteDomain', {DomainName=>'xxxx'}); # spent 103ms making 1 call to SimpleDB::Client::send_request
26 |  |  |  |  |