File Coverage

blib/lib/Net/Delicious/Constants/Config.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Net::Delicious::Constants::Config;
2 1     1   7 use strict;
  1         1  
  1         63  
3              
4             # $Id: Config.pm,v 1.10 2008/03/03 16:55:04 asc Exp $
5              
6             $Net::Delicious::Constants::Config::VERSION = '1.14';
7              
8             =head1 NAME
9              
10             Net::Delicious::Constants::Config - constant variables for Net::Delicious default configs.
11              
12             =head1 SYNOPSIS
13              
14             use Net::Delicious::Constants qw (:config)
15              
16             =head1 DESCRIPTION
17              
18             Constant variables for Net::Delicious default configs.
19              
20             =cut
21              
22 1     1   6 use Net::Delicious::Constants qw(:uri);
  1         2  
  1         9  
23              
24             =head1 CONSTANTS
25              
26             =cut
27              
28             =head2 DELICIOUS_CFG_STD
29              
30             =cut
31              
32 1         174 use constant DELICIOUS_CFG_STD => (endpoint => URI_API,
33             xml_parser => 'simple',
34             force_xml_objects => 0,
35             debug => 0,
36             user => '',
37             pswd => '',
38 1     1   6 updates => '');
  1         1  
39              
40             =head2 DELICIOUS_CFG_API
41              
42             =cut
43              
44 1         90 use constant DELICIOUS_CFG_API => (tags => {"get" => {},
45             "rename" => {"old" => "required",
46             "new" => "required"}},
47              
48             "tags_bundles" => {"all" => {},
49             "set" => {"bundle" => "required",
50             "tags" => "required"},
51             "delete" => {"bundle" => "required"}},
52              
53             update => {},
54              
55             posts => {"add" => {"url" => "required",
56             "description" => "",
57             "extended" => "",
58             "tags" => "",
59             "dt" => "",
60             "shared" => ";no",
61             "replace" => ";no"},
62             "delete" => {"url" => "required"},
63             "dates" => {"tag" => ""},
64             "recent" => {"tag" => "", "count" => ""},
65             "get" => { "tag" => "", "dt" => "", "url" => ""},
66             "all" => {},
67             "update" => {}},
68 1     1   4 );
  1         2  
69              
70             =head2 DELICIOUS_CFG_PROPERTIES
71              
72             =cut
73              
74 1         134 use constant DELICIOUS_CFG_PROPERTIES => (date => "tag,date,count,user",
75             post => "description,extended,href,time,parent,tag,others,shared",
76             bundle => "name, tag",
77             user => "name",
78             subscriptions => "user, tag",
79 1     1   5 tag => "tag, count");
  1         2  
80            
81             BEGIN {
82 1     1   6 use vars qw (@EXPORT_OK);
  1         3  
  1         53  
83            
84 1     1   32 @EXPORT_OK = qw (DELICIOUS_CFG_STD
85             DELICIOUS_CFG_API
86             DELICIOUS_CFG_PROPERTIES);
87             }
88              
89             =head1 VERSION
90              
91             1.13
92              
93             =head1 DATE
94              
95             $Date: 2008/03/03 16:55:04 $
96              
97             =head1 AUTHOR
98              
99             Aaron Straup Cope
100              
101             =head1 SEE ALSO
102              
103             L
104              
105             L
106              
107             L
108              
109             =head1 LICENSE
110              
111             Copyright (c) 2004-2008 Aaron Straup Cope. All rights reserved.
112              
113             This is free software, you may use it and distribute it under the
114             same terms as Perl itself.
115              
116             =cut
117              
118             return 1;