File Coverage

blib/lib/Net/Delicious/Date.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: Date.pm,v 1.14 2008/03/03 16:55:04 asc Exp $
2 1     1   3433 use strict;
  1         3  
  1         45  
3              
4             package Net::Delicious::Date;
5 1     1   6 use base qw (Net::Delicious::Object);
  1         2  
  1         121  
6              
7             $Net::Delicious::Date::VERSION = '1.14';
8              
9             =head1 NAME
10              
11             Net::Delicious::Date - OOP for del.icio.us date thingies
12              
13             =head1 SYNOPSIS
14              
15             use Net::Delicious;
16             my $del = Net::Delicious->new({...});
17              
18             foreach my $dt ($del->post_per_date({...})) {
19              
20             # $dt is a Net::Delicious::Date
21             # object.
22              
23             print "$dt\n";
24             }
25              
26             =head1 DESCRIPTION
27              
28             OOP for del.icio.us date 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   5 use overload q("") => sub { shift->count() };
  1     0   2  
  1         19  
  0            
48              
49             =head1 PACKAGE METHODS
50              
51             =cut
52              
53             =head2 __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->tag()
66              
67             Returns a string.
68              
69             =cut
70              
71             # Defined in Net::Delicious::Object
72              
73             =head2 $obj->date()
74              
75             Returns a date string, formatted I
76              
77             =cut
78              
79             # Defined in Net::Delicious::Object
80              
81             =head2 $obj->count()
82              
83             Returns an int.
84              
85             =cut
86              
87             # Defined in Net::Delicious::Object
88              
89             =head2 $obj->as_hashref()
90              
91             Return the object as a hash ref safe for serializing and re-blessing.
92              
93             =cut
94              
95             # Defined in Net::Delicious::Object
96              
97             =head1 VERSION
98              
99             1.13
100              
101             =head1 DATE
102              
103             $Date: 2008/03/03 16:55:04 $
104              
105             =head1 AUTHOR
106              
107             Aaron Straup Cope
108              
109             =head1 SEE ALSO
110              
111             L
112              
113             =head1 LICENSE
114              
115             Copyright (c) 2004-2008 Aaron Straup Cope. All rights reserved.
116              
117             This is free software, you may use it and distribute it under the
118             same terms as Perl itself.
119              
120             =cut
121              
122             return 1;