package Net::Delicious::Constants::Uri; use strict; # $Id: Uri.pm,v 1.3 2004/01/30 22:59:50 asc Exp $ =head1 NAME Net::Delicious::Constants::Uri - constant variables for del.icio.us URIs =head1 SYNOPSIS use Net::Delicious::Constants qw (:uri) =head1 DESCRIPTION Constant variables for del.icio.us URIs. =cut $Net::Delicious::Constants::Uri::VERSION = '0.1'; =head1 CONSTANTS =cut =head2 URI_DELICIOUS String. =cut use constant URI_DELICIOUS => "http://del.icio.us"; =head2 URI_API String. =cut use constant URI_API => join("/",URI_DELICIOUS,"api"); BEGIN { use vars qw (@EXPORT_OK); @EXPORT_OK = qw (URI_DELICIOUS URI_API); } =head1 VERSION 0.1 =head1 DATE $Date: 2004/01/30 22:59:50 $ =head1 AUTHOR Aaron Straup Cope =head1 SEE ALSO L L =head1 LICENSE Copyright (c) 2004 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;