File Coverage

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