File Coverage

blib/lib/Net/Delicious/Constants/Uri.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::Uri;
2 1     1   4 use strict;
  1         3  
  1         41  
3              
4             # $Id: Uri.pm,v 1.11 2008/03/03 16:55:04 asc Exp $
5             $Net::Delicious::Constants::Uri::VERSION = '1.14';
6              
7 1     1   947 use URI;
  1         5739  
  1         40  
8              
9             =head1 NAME
10              
11             Net::Delicious::Constants::Uri - constant variables for del.icio.us URIs
12              
13             =head1 SYNOPSIS
14              
15             use Net::Delicious::Constants qw (:uri)
16              
17             =head1 DESCRIPTION
18              
19             Constant variables for del.icio.us URIs.
20             cut
21              
22             =head1 CONSTANTS
23              
24             =cut
25              
26             =head2 URI_DELICIOUS
27              
28             String.
29              
30             =cut
31              
32 1     1   7 use constant URI_DELICIOUS => URI->new("http://del.icio.us");
  1         3  
  1         4  
33              
34             =head2 URI_API
35              
36             String.
37              
38             =cut
39              
40 1     1   11384 use constant URI_API => URI->new("https://api.del.icio.us/v1/");
  1         1  
  1         52  
41              
42             BEGIN {
43 1     1   1128 use vars qw (@EXPORT_OK);
  1         2  
  1         43  
44              
45 1     1   103 @EXPORT_OK = qw (URI_DELICIOUS
46             URI_API);
47             }
48              
49             =head1 VERSION
50              
51             1.13
52              
53             =head1 DATE
54              
55             $Date: 2008/03/03 16:55:04 $
56              
57             =head1 AUTHOR
58              
59             Aaron Straup Cope
60              
61             =head1 SEE ALSO
62              
63             L
64              
65             L
66              
67             =head1 LICENSE
68              
69             Copyright (c) 2004-2008 Aaron Straup Cope. All rights reserved.
70              
71             This is free software, you may use it and distribute it under the
72             same terms as Perl itself.
73              
74             =cut
75              
76             return 1;