File Coverage

blib/lib/Email/ConstantContact/Resource.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 20 60.0


line stmt bran cond sub pod time code
1             package Email::ConstantContact::Resource;
2              
3 1     1   7 use warnings;
  1         2  
  1         40  
4 1     1   6 use strict;
  1         3  
  1         46  
5              
6             =head1 NAME
7              
8             Email::ConstantContact::Resource - Internal class to interact with ConstantContact Resource Objects.
9              
10             =head1 VERSION
11              
12             Version 0.05
13              
14             =cut
15              
16 1     1   8 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  1         3  
  1         226  
17              
18             require Exporter;
19              
20             @ISA = qw(Exporter);
21             @EXPORT = qw( );
22              
23             $VERSION = '0.05';
24              
25              
26             =head1 SYNOPSIS
27             This module is not typically used directly, but internally by the main
28             Email::ConstantContact object for processing requests.
29              
30             =cut
31              
32             sub new {
33 0     0 0   my $class = shift;
34 0           my $ccobj = shift;
35 0           my $data = shift;
36              
37 0           my $self = {
38             '_cc' => $ccobj,
39             'href' => $data->{'href'},
40             'title' => $data->{'atom:title'}->{'content'},
41             'accept' => $data->{'accept'},
42             };
43              
44 0           bless ($self, $class);
45 0           return $self;
46             }
47              
48              
49             =head1 AUTHOR
50              
51             Adam Rich, C<< >>
52              
53             =head1 BUGS
54              
55             Please report any bugs or feature requests to C, or through
56             the web interface at L. I will be notified, and then you'll
57             automatically be notified of progress on your bug as I make changes.
58              
59              
60              
61              
62             =head1 SUPPORT
63              
64             You can find documentation for this module with the perldoc command.
65              
66             perldoc Email::ConstantContact::Resource
67              
68              
69             You can also look for information at:
70              
71             =over 4
72              
73             =item * RT: CPAN's request tracker
74              
75             L
76              
77             =item * AnnoCPAN: Annotated CPAN documentation
78              
79             L
80              
81             =item * CPAN Ratings
82              
83             L
84              
85             =item * Search CPAN
86              
87             L
88              
89             =back
90              
91              
92             =head1 ACKNOWLEDGEMENTS
93              
94              
95             =head1 COPYRIGHT & LICENSE
96              
97             Copyright 2009-2011 Adam Rich, all rights reserved.
98              
99             This program is free software; you can redistribute it and/or modify it
100             under the same terms as Perl itself.
101              
102              
103             =cut
104              
105             1; # End of Email::ConstantContact::Resource