| blib/lib/Amazon/MWS/FulfillmentOutbound.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| statement | 3 | 3 | 100.0 | 
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 1 | 1 | 100.0 | 
| pod | n/a | ||
| total | 4 | 4 | 100.0 | 
| line | stmt | bran | cond | sub | pod | time | code | 
|---|---|---|---|---|---|---|---|
| 1 | package Amazon::MWS::FulfillmentOutbound; | ||||||
| 2 | |||||||
| 3 | 8 | 8 | 39 | use Amazon::MWS::Routines qw(:all); | |||
| 8 | 11 | ||||||
| 8 | 1461 | ||||||
| 4 | |||||||
| 5 | my $fulfillment_service = '/FulfillmentOutboundShipment/2010-10-01/'; | ||||||
| 6 | |||||||
| 7 | define_api_method GetServiceStatus => | ||||||
| 8 | version => '2010-10-01', | ||||||
| 9 | raw_body => 0, | ||||||
| 10 | service => "$fulfillment_service", | ||||||
| 11 | module_name => 'Amazon::MWS::FulfillmentOutbound', | ||||||
| 12 | parameters => {}, | ||||||
| 13 | respond => sub { | ||||||
| 14 | my $root = shift; | ||||||
| 15 | return $root->{Status}; | ||||||
| 16 | }; | ||||||
| 17 | |||||||
| 18 | 1; |