File Coverage

blib/lib/Net/Delicious/Constants/Pause.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::Pause;
2 1     1   5 use strict;
  1         2  
  1         54  
3              
4             # $Id: Pause.pm,v 1.13 2008/03/03 16:55:04 asc Exp $
5              
6             =head1 NAME
7              
8             Net::Delicious::Constants::Pause -
9              
10             =head1 SYNOPSIS
11              
12             use Net::Delicious::Constants qw (:pause)
13              
14             =head1 DESCRIPTION
15              
16             Constant variables for del.icio.us
17              
18             =cut
19              
20             $Net::Delicious::Constants::Pause::VERSION = '1.14';
21              
22             =head1 CONSTANTS
23              
24             =cut
25              
26             =head2 PAUSE_ONSTATUS
27              
28             Int.
29              
30             =cut
31              
32 1     1   5 use constant PAUSE_ONSTATUS => 503;
  1         1  
  1         61  
33              
34             =head2 PAUSE_MAXTRIES
35              
36             Int.
37              
38             =cut
39              
40 1     1   5 use constant PAUSE_MAXTRIES => 10;
  1         1  
  1         49  
41              
42             =head2 PAUSE_SECONDS_OK
43              
44             Float.
45              
46             =cut
47              
48 1     1   5 use constant PAUSE_SECONDS_OK => 0.75;
  1         2  
  1         139  
49              
50             =head2 PAUSE_SECONDS_OK
51              
52             Float.
53              
54             =cut
55              
56 1     1   6 use constant PAUSE_SECONDS_UNAVAILABLE => PAUSE_SECONDS_OK * 2;
  1         2  
  1         53  
57              
58             BEGIN {
59 1     1   5 use vars qw (@EXPORT_OK);
  1         1  
  1         52  
60              
61 1     1   38 @EXPORT_OK = qw (PAUSE_ONSTATUS
62             PAUSE_MAXTRIES
63             PAUSE_SECONDS_OK
64             PAUSE_SECONDS_UNAVAILABLE);
65             }
66              
67             =head1 VERSION
68              
69             1.13
70              
71             =head1 DATE
72              
73             $Date: 2008/03/03 16:55:04 $
74              
75             =head1 AUTHOR
76              
77             Aaron Straup Cope
78              
79             =head1 SEE ALSO
80              
81             L
82              
83             L
84              
85             =head1 LICENSE
86              
87             Copyright (c) 2004-2008 Aaron Straup Cope. All rights reserved.
88              
89             This is free software, you may use it and distribute it under the
90             same terms as Perl itself.
91              
92             =cut
93              
94             return 1;