File Coverage

blib/lib/Net/Delicious/User.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 14 85.7


line stmt bran cond sub pod time code
1             # $Id: User.pm,v 1.11 2008/03/03 16:55:04 asc Exp $
2 1     1   5 use strict;
  1         1  
  1         55  
3              
4             package Net::Delicious::User;
5 1     1   6 use base qw (Net::Delicious::Object);
  1         1  
  1         126  
6              
7             $Net::Delicious::User::VERSION = '1.14';
8              
9             =head1 NAME
10              
11             Net::Delicious::User - OOP for del.icio.us user thingies
12              
13             =head1 SYNOPSIS
14              
15             use Net::Delicious;
16             my $del = Net::Delicious->new({...});
17              
18             foreach my $post ($del->recent_posts()) {
19              
20             my $user = $post->user();
21             print $user->name()."\n";
22             }
23              
24             =head1 DESCRIPTION
25              
26             OOP for del.icio.us user thingies.
27              
28             =head1 NOTES
29              
30             =over 4
31              
32             =item *
33              
34             This package overrides the perl builtin I operator and returns the value of the object's I method.
35              
36             =item *
37              
38             It isn't really expected that you will instantiate these
39             objects outside of I itself.
40              
41             =back
42              
43             =cut
44              
45 1     1   6 use overload q("") => sub { shift->name() };
  1     0   1  
  1         10  
  0            
46              
47             =head1 PACKAGE METHODS
48              
49             =cut
50              
51             =head1 __PACKAGE__->new(\%args)
52              
53             Returns a I object. Woot!
54              
55             =cut
56              
57             # Defined in Net::Delicious::Object
58              
59             =head1 OBJECT METHODS
60              
61             =cut
62              
63             =head2 $obj->name()
64              
65             Returns an string.
66              
67             =cut
68              
69             # Defined in Net::Delicious::Object
70              
71             =head2 $obj->as_hashref()
72              
73             Return the object as a hash ref safe for serializing and re-blessing.
74              
75             =cut
76              
77             # Defined in Net::Delicious::Object
78              
79             =head1 VERSION
80              
81             1.13
82              
83             =head1 DATE
84              
85             $Date: 2008/03/03 16:55:04 $
86              
87             =head1 AUTHOR
88              
89             Aaron Straup Cope
90              
91             =head1 SEE ALSO
92              
93             L
94              
95             =head1 LICENSE
96              
97             Copyright (c) 2004-2008 Aaron Straup Cope. All rights reserved.
98              
99             This is free software, you may use it and distribute it under the
100             same terms as Perl itself.
101              
102             =cut
103              
104             return 1;