File Coverage

blib/lib/Net/Delicious/Constants/Response.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Net::Delicious::Constants::Response;
2 1     1   6 use strict;
  1         1  
  1         53  
3              
4             # $Id: Response.pm,v 1.12 2008/03/03 16:55:04 asc Exp $
5              
6             =head1 NAME
7              
8             Net::Delicious::Constants::Response - constant variables for del.icio.us response messages
9              
10             =head1 SYNOPSIS
11              
12             use Net::Delicious::Constants qw (:response)
13              
14             =head1 DESCRIPTION
15              
16             Constant variables for del.icio.us response messages.
17              
18             =cut
19              
20             $Net::Delicious::Constants::Response::VERSION = '1.14';
21              
22             =head1 CONSTANTS
23              
24             =cut
25              
26             =head2 RESPONSE_ERROR
27              
28             String.
29              
30             =cut
31              
32 1     1   5 use constant RESPONSE_ERROR => "something went wrong";
  1         1  
  1         120  
33              
34             =head2 RESPONSE_DONE
35              
36             String.
37              
38             =cut
39              
40 1     1   4 use constant RESPONSE_DONE => "done";
  1         2  
  1         42  
41              
42 1     1   5 use constant RESPONSE_OK => "ok";
  1         2  
  1         45  
43              
44             BEGIN {
45 1     1   4 use vars qw (@EXPORT_OK);
  1         1  
  1         50  
46              
47 1     1   45 @EXPORT_OK = qw (RESPONSE_ERROR
48             RESPONSE_DONE
49             RESPONSE_OK);
50             }
51              
52              
53             =head1 VERSION
54              
55             1.13
56              
57             =head1 DATE
58              
59             $Date: 2008/03/03 16:55:04 $
60              
61             =head1 AUTHOR
62              
63             Aaron Straup Cope
64              
65             =head1 SEE ALSO
66              
67             L
68              
69             L
70              
71             =head1 LICENSE
72              
73             Copyright (c) 2004-2008 Aaron Straup Cope. All rights reserved.
74              
75             This is free software, you may use it and distribute it under the
76             same terms as Perl itself.
77              
78             =cut
79              
80             return 1;