File Coverage

blib/lib/WWW/Namecheap/User.pm
Criterion Covered Total %
statement 12 25 48.0
branch 0 6 0.0
condition n/a
subroutine 4 7 57.1
pod 2 2 100.0
total 18 40 45.0


line stmt bran cond sub pod time code
1             package WWW::Namecheap::User;
2              
3 1     1   912 use 5.006;
  1         3  
  1         31  
4 1     1   4 use strict;
  1         3  
  1         45  
5 1     1   5 use warnings;
  1         1  
  1         21  
6 1     1   6 use Carp();
  1         2  
  1         216  
7              
8             =head1 NAME
9              
10             WWW::Namecheap::User - Namecheap API user methods
11              
12             =cut
13              
14             our $VERSION = '0.05';
15              
16             =head1 SYNOPSIS
17              
18             Namecheap API user methods.
19              
20             Perhaps a little code snippet.
21              
22             use WWW::Namecheap::User;
23              
24             my $foo = WWW::Namecheap::User->new();
25             ...
26              
27             =head1 SUBROUTINES/METHODS
28              
29             =head2 new
30              
31             =cut
32              
33             sub new {
34 0     0 1   my $class = shift;
35            
36 0           my $params = _argparse(@_);
37            
38 0           for (qw(API)) {
39 0 0         Carp::croak("${class}->new(): Mandatory parameter $_ not provided.") unless $params->{$_};
40             }
41            
42 0           my $self = {
43             api => $params->{'API'},
44             };
45            
46 0           return bless($self, $class);
47             }
48              
49             =head2 $user->api()
50              
51             Accessor for internal API object.
52              
53             =cut
54              
55             sub api {
56 0     0 1   return $_[0]->{api};
57             }
58              
59             sub _argparse {
60 0     0     my $hashref;
61 0 0         if (@_ % 2 == 0) {
    0          
62 0           $hashref = { @_ }
63             } elsif (ref($_[0]) eq 'HASH') {
64 0           $hashref = \%{$_[0]};
  0            
65             }
66 0           return $hashref;
67             }
68              
69             =head1 AUTHOR
70              
71             Tim Wilde, C<< >>
72              
73             =head1 BUGS
74              
75             Please report any bugs or feature requests to C, or through
76             the web interface at L. I will be notified, and then you'll
77             automatically be notified of progress on your bug as I make changes.
78              
79              
80              
81             =head1 SUPPORT
82              
83             You can find documentation for this module with the perldoc command.
84              
85             perldoc WWW::Namecheap::User
86              
87              
88             You can also look for information at:
89              
90             =over 4
91              
92             =item * RT: CPAN's request tracker (report bugs here)
93              
94             L
95              
96             =item * AnnoCPAN: Annotated CPAN documentation
97              
98             L
99              
100             =item * CPAN Ratings
101              
102             L
103              
104             =item * Search CPAN
105              
106             L
107              
108             =back
109              
110              
111             =head1 ACKNOWLEDGEMENTS
112              
113              
114             =head1 LICENSE AND COPYRIGHT
115              
116             Copyright 2011 Tim Wilde.
117              
118             This program is free software; you can redistribute it and/or modify it
119             under the terms of either: the GNU General Public License as published
120             by the Free Software Foundation; or the Artistic License.
121              
122             See http://dev.perl.org/licenses/ for more information.
123              
124              
125             =cut
126              
127             1; # End of WWW::Namecheap::User