File Coverage

blib/lib/Net/OpenSocial/Client/Type/Service.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 36 36 100.0


line stmt bran cond sub pod time code
1             package Net::OpenSocial::Client::Type::Service;
2              
3 1     1   4 use strict;
  1         2  
  1         24  
4 1     1   5 use warnings;
  1         2  
  1         20  
5              
6 1     1   5 use base 'Exporter';
  1         1  
  1         110  
7              
8             our @EXPORT_OK = qw(PEOPLE GROUP ACTIVITY APPDATA ALBUM MEDIAITEM);
9              
10 1     1   5 use constant PEOPLE => 'people';
  1         1  
  1         52  
11 1     1   4 use constant GROUP => 'groups';
  1         2  
  1         37  
12 1     1   4 use constant ACTIVITY => 'activities';
  1         2  
  1         38  
13 1     1   4 use constant APPDATA => 'appdata';
  1         2  
  1         36  
14 1     1   4 use constant ALBUM => 'albums';
  1         2  
  1         37  
15 1     1   4 use constant MEDIAITEM => 'mediaitems';
  1         1  
  1         46  
16              
17             1;
18              
19             =head1 NAME
20              
21             Net::OpenSocial::Client::Type::Service - Constants for service-type
22              
23             =head1 SYNOPSIS
24              
25             use Net::OpenSocial::Client::Type::Service qw(PEOPLE GROUP ACTIVITY APPDATA ALBUM MEDIAITEM);
26             say PEOPLE;
27             say GROUP;
28             say ACTIVITY;
29             say APPDATA;
30             say ALBUM;
31             say MEDIAITEM;
32              
33             =head1 DESCRIPTION
34              
35             Constants for service-type
36              
37             =head1 VALUES
38              
39             =over 4
40              
41             =item PEOPLE
42              
43             =item GROUP
44              
45             =item ACTIVITY
46              
47             =item APPDATA
48              
49             =item ALBUM
50              
51             =item MEDIAITEM
52              
53             =back
54              
55             =head1 AUTHOR
56              
57             Lyo Kato, Elyo.kato@gmail.comE, OpenSocial 0.9 "album" and "mediaItem"
58             services added by Eugene A.Lukianov, Eeugene.spa@gmail.comE
59              
60             =head1 COPYRIGHT AND LICENSE
61              
62             Copyright (C) 2009 by Lyo Kato
63              
64             This library is free software; you can redistribute it and/or modify
65             it under the same terms as Perl itself, either Perl version 5.8.8 or,
66             at your option, any later version of Perl 5 you may have available.
67              
68             =cut
69