# $Id: Date.pm,v 1.13 2007/03/25 15:32:25 asc Exp $ use strict; package Net::Delicious::Date; use base qw (Net::Delicious::Object); $Net::Delicious::Date::VERSION = '1.11'; =head1 NAME Net::Delicious::Date - OOP for del.icio.us date thingies =head1 SYNOPSIS use Net::Delicious; my $del = Net::Delicious->new({...}); foreach my $dt ($del->post_per_date({...})) { # $dt is a Net::Delicious::Date # object. print "$dt\n"; } =head1 DESCRIPTION OOP for del.icio.us date thingies. =head1 NOTES =over 4 =item * This package overrides the perl builtin I operator and returns the value of the object's I method. =item * It isn't really expected that you will instantiate these objects outside of I itself. =back =cut use overload q("") => sub { shift->count() }; =head1 PACKAGE METHODS =cut =head2 __PACKAGE__->new(\%args) Returns a I object. Woot! =cut # Defined in Net::Delicious::Object =head1 OBJECT METHODS =cut =head2 $obj->tag() Returns a string. =cut # Defined in Net::Delicious::Object =head2 $obj->date() Returns a date string, formatted I =cut # Defined in Net::Delicious::Object =head2 $obj->count() Returns an int. =cut # Defined in Net::Delicious::Object =head2 $obj->as_hashref() Return the object as a hash ref safe for serializing and re-blessing. =cut # Defined in Net::Delicious::Object =head1 VERSION 1.11 =head1 DATE $Date: 2007/03/25 15:32:25 $ =head1 AUTHOR Aaron Straup Cope =head1 SEE ALSO L =head1 LICENSE Copyright (c) 2004-2007 Aaron Straup Cope. All rights reserved. This is free software, you may use it and distribute it under the same terms as Perl itself. =cut return 1;