File Coverage

blib/lib/Net/OpenSocial/Client/Request/RemovePersonAppData.pm
Criterion Covered Total %
statement 12 16 75.0
branch n/a
condition 0 6 0.0
subroutine 4 5 80.0
pod 1 1 100.0
total 17 28 60.7


line stmt bran cond sub pod time code
1             package Net::OpenSocial::Client::Request::RemovePersonAppData;
2              
3 1     1   5 use Any::Moose;
  1         3  
  1         9  
4             extends 'Net::OpenSocial::Client::Request';
5              
6 1     1   540 use Net::OpenSocial::Client::Type::Service qw(APPDATA);
  1         3  
  1         65  
7 1     1   5 use Net::OpenSocial::Client::Type::Operation qw(DELETE);
  1         3  
  1         158  
8              
9             sub BUILDARGS {
10 0     0 1   my ( $self, $user_id, $params ) = @_;
11 0   0       $params ||= {};
12 0   0       $params->{appId} ||= '@app';
13             return {
14 0   0       service => APPDATA,
15             operation => DELETE,
16             user_id => $user_id || '@me',
17             group_id => '@self',
18             params => $params,
19             };
20             }
21              
22 1     1   6 no Any::Moose;
  1         3  
  1         6  
23             __PACKAGE__->meta->make_immutable;
24             1;
25              
26             =head1 NAME
27              
28             Net::OpenSocial::Client::Request::RemovePersonAppData - remove AppData for person
29              
30             =head1 SYNOPSIS
31              
32             =head1 DESCRIPTION
33              
34             =head1 METHODS
35              
36             =head2 BUILDARGS
37              
38             See L or L
39              
40             =head1 SEE ALSO
41              
42             L
43              
44             =head1 AUTHOR
45              
46             Lyo Kato, Elyo.kato@gmail.comE
47              
48             =head1 COPYRIGHT AND LICENSE
49              
50             Copyright (C) 2009 by Lyo Kato
51              
52             This library is free software; you can redistribute it and/or modify
53             it under the same terms as Perl itself, either Perl version 5.8.8 or,
54             at your option, any later version of Perl 5 you may have available.
55              
56             =cut
57