| Net-Delicious documentation | Contained in the Net-Delicious distribution. |
Net::Delicious::Bundle - OOP for del.icio.us bundle thingies
use Net::Delicious;
my $del = Net::Delicious->new({...});
foreach my $bundle ($del->bundles()) {
# $post is a Net::Delicious::Bundle
# object.
print "$bundle\n";
}
OOP for del.icio.us bundle thingies.
Returns a Net::Delicious::Bundle object. Woot!
Returns a string.
Return the object as a hash ref safe for serializing and re-blessing.
1.13
$Date: 2008/03/03 16:55:04 $
Aaron Straup Cope <ascope@cpan.org>
Copyright (c) 2004-2008 Aaron Straup Cope. All rights reserved.
This is free software, you may use it and distribute it under the same terms as Perl itself.
| Net-Delicious documentation | Contained in the Net-Delicious distribution. |
# $Id: Bundle.pm,v 1.13 2008/03/03 16:55:04 asc Exp $ use strict; package Net::Delicious::Bundle; use base qw (Net::Delicious::Object); $Net::Delicious::Bundle::VERSION = '1.14'; use overload q("") => sub { shift->name(); };
# Defined in Net::Delicious::Object
# Defined in Net::Delicious::Object
sub tags { my $self = shift; my $tags = $self->{tags}; if (wantarray) { return (split(" ",$tags)); } return $tags; }
# Defined in Net::Delicious::Object
return 1;