| File | /data/SimpleDB-Client/author.t/01.HTTP.t |
| Statements Executed | 18 |
| Statement Execution Time | 15.0ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 4.92ms | 34.6ms | main::BEGIN@1 |
| 0 | 0 | 0 | 0s | 0s | main::RUNTIME |
| 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 # 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 |