File Coverage

blib/lib/WWW/TypePad/Assets.pm
Criterion Covered Total %
statement 6 49 12.2
branch n/a
condition n/a
subroutine 2 17 11.7
pod 0 15 0.0
total 8 81 9.8


line stmt bran cond sub pod time code
1             package WWW::TypePad::Assets;
2             ### BEGIN auto-generated
3             ### This is an automatically generated code, do not edit!
4             ### Scroll down to look for END to add additional methods
5              
6 1     1   3 use strict;
  1         1  
  1         29  
7 1     1   4 use Any::Moose;
  1         1  
  1         4  
8             extends 'WWW::TypePad::Noun';
9              
10 0     0 0   sub prefix { '/assets' }
11              
12             sub get {
13 0     0 0   my $api = shift;
14 0           my $id = shift;
15 0           $api->_get($id);
16             }
17              
18             sub favorites {
19 0     0 0   my $api = shift;
20 0           my $id = shift;
21 0           $api->_get($id, 'favorites', undef, undef, @_);
22             }
23              
24             sub feedback_status {
25 0     0 0   my $api = shift;
26 0           my $id = shift;
27 0           $api->_get($id, 'feedback-status', undef, undef, @_);
28             }
29              
30             sub set_feedback_status {
31 0     0 0   my $api = shift;
32 0           my $id = shift;
33 0           $api->_post($id, 'feedback-status', undef, undef, @_);
34             }
35              
36             sub publication_status {
37 0     0 0   my $api = shift;
38 0           my $id = shift;
39 0           $api->_get($id, 'publication-status', undef, undef, @_);
40             }
41              
42             sub set_publication_status {
43 0     0 0   my $api = shift;
44 0           my $id = shift;
45 0           $api->_post($id, 'publication-status', undef, undef, @_);
46             }
47              
48             sub categories {
49 0     0 0   my $api = shift;
50 0           my $id = shift;
51 0           $api->_get($id, 'categories', undef, undef, @_);
52             }
53              
54             sub comments {
55 0     0 0   my $api = shift;
56 0           my $id = shift;
57 0           $api->_get($id, 'comments', undef, undef, @_);
58             }
59              
60             sub new_comment {
61 0     0 0   my $api = shift;
62 0           my $id = shift;
63 0           $api->_post($id, 'comments', undef, undef, @_);
64             }
65              
66             sub media_assets {
67 0     0 0   my $api = shift;
68 0           my $id = shift;
69 0           $api->_get($id, 'media-assets', undef, undef, @_);
70             }
71              
72             sub comment_tree {
73 0     0 0   my $api = shift;
74 0           my $id = shift;
75 0           $api->_get($id, 'comment-tree', undef, undef, @_);
76             }
77              
78              
79             sub remove_category {
80 0     0 0   my $api = shift;
81 0           my $id = shift;
82 0           $api->_post($id, 'remove-category', undef, undef, @_);
83             }
84              
85             sub add_category {
86 0     0 0   my $api = shift;
87 0           my $id = shift;
88 0           $api->_post($id, 'add-category', undef, undef, @_);
89             }
90              
91             sub make_comment_preview {
92 0     0 0   my $api = shift;
93 0           my $id = shift;
94 0           $api->_post($id, 'make-comment-preview', undef, undef, @_);
95             }
96              
97             ### END auto-generated
98              
99              
100              
101              
102             1;