File Coverage

blib/lib/Amazon/MWS/Feeds.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::Feeds;
2              
3 8     8   34 use Amazon::MWS::Routines qw(:all);
  8         11  
  8         3502  
4              
5             my $version = '2009-01-01';
6              
7             define_api_method SubmitFeed =>
8             version => "$version",
9             parameters => {
10             MarketplaceIdList => {
11             required => 0,
12             type => 'IdList',
13             },
14             FeedContent => {
15             required => 1,
16             type => 'HTTP-BODY',
17             },
18             FeedType => {
19             required => 1,
20             type => 'string',
21             },
22             PurgeAndReplace => {
23             type => 'boolean',
24             },
25             },
26             respond => sub {
27             my $root = shift->{FeedSubmissionInfo};
28             convert($root, SubmittedDate => 'datetime');
29             return $root;
30             };
31              
32             define_api_method GetFeedSubmissionList =>
33             version => "$version",
34             parameters => {
35             FeedSubmissionIdList => { type => 'IdList' },
36             MaxCount => { type => 'nonNegativeInteger' },
37             FeedTypeList => { type => 'TypeList' },
38             FeedProcessingStatusList => { type => 'StatusList' },
39             SubmittedFromDate => { type => 'datetime' },
40             SubmittedToDate => { type => 'datetime' },
41             },
42             respond => sub {
43             my $root = shift;
44             convert($root, HasNext => 'boolean');
45             Amazon::MWS::Reports::convert_FeedSubmissionInfo($root);
46             return $root;
47             };
48              
49             define_api_method GetFeedSubmissionListByNextToken =>
50             version => "$version",
51             parameters => {
52             NextToken => {
53             type => 'string',
54             required => 1,
55             },
56             },
57             respond => sub {
58             my $root = shift;
59             convert($root, HasNext => 'boolean');
60             Amazon::MWS::Reports::convert_FeedSubmissionInfo($root);
61              
62             return $root;
63             };
64              
65             define_api_method GetFeedSubmissionCount =>
66             version => "$version",
67             parameters => {
68             FeedTypeList => { type => 'TypeList' },
69             FeedProcessingStatusList => { type => 'StatusList' },
70             SubmittedFromDate => { type => 'datetime' },
71             SubmittedToDate => { type => 'datetime' },
72             },
73             respond => sub { $_[0]->{Count} };
74              
75             define_api_method CancelFeedSubmissions =>
76             version => "$version",
77             parameters => {
78             FeedSubmissionIdList => { type => 'IdList' },
79             FeedTypeList => { type => 'TypeList' },
80             SubmittedFromDate => { type => 'datetime' },
81             SubmittedToDate => { type => 'datetime' },
82             },
83             respond => sub {
84             my $root = shift;
85             Amazon::MWS::Reports::convert_FeedSubmissionInfo($root);
86             return $root;
87             };
88              
89             define_api_method GetFeedSubmissionResult =>
90             version => "$version",
91             raw_body => 1,
92             parameters => {
93             FeedSubmissionId => {
94             type => 'string',
95             required => 1,
96             },
97             };
98              
99             1;