package Net::Delicious::Constants::Response; use strict; # $Id: Response.pm,v 1.3 2004/01/30 22:59:50 asc Exp $ =head1 NAME Net::Delicious::Constants::Response - constant variables for del.icio.us response messages =head1 SYNOPSIS use Net::Delicious::Constants qw (:response) =head1 DESCRIPTION Constant variables for del.icio.us response messages. =cut $Net::Delicious::Constants::Response::VERSION = '0.1'; =head1 CONSTANTS =cut =head2 RESPONSE_ERROR String. =cut use constant RESPONSE_ERROR => "something went wrong"; =head2 RESPONSE_DONE String. =cut use constant RESPONSE_DONE => "done"; BEGIN { use vars qw (@EXPORT_OK); @EXPORT_OK = qw (RESPONSE_ERROR RESPONSE_DONE); } =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;