File Coverage

blib/lib/Net/ICAP/Common.pm
Criterion Covered Total %
statement 117 117 100.0
branch n/a
condition n/a
subroutine 39 39 100.0
pod n/a
total 156 156 100.0


line stmt bran cond sub pod time code
1             # Net::ICAP::Common -- Common ICAP Constants
2             #
3             # (c) 2012, Arthur Corliss
4             #
5             # $Revision: 0.03 $
6             #
7             # This software is licensed under the same terms as Perl, itself.
8             # Please see http://dev.perl.org/licenses/ for more information.
9             #
10             #####################################################################
11              
12             #####################################################################
13             #
14             # Environment definitions
15             #
16             #####################################################################
17              
18             package Net::ICAP::Common;
19              
20 4     4   71210 use 5.008003;
  4         16  
  4         173  
21              
22 4     4   24 use strict;
  4         9  
  4         140  
23 4     4   32 use warnings;
  4         10  
  4         147  
24 4     4   22 use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA $VERSION);
  4         8  
  4         413  
25 4     4   22 use Exporter;
  4         7  
  4         791  
26              
27             ($VERSION) = ( q$Revision: 0.03 $ =~ /(\d+(?:\.(\d+))+)/sm );
28              
29             @ISA = qw(Exporter);
30              
31             my @debug = qw(ICAPDEBUG1 ICAPDEBUG2 ICAPDEBUG3 ICAPDEBUG4);
32             my @req = qw(ICAP_REQMOD ICAP_RESPMOD ICAP_OPTIONS);
33             my @resp = qw(ICAP_CONTINUE ICAP_OK ICAP_NO_MOD_NEEDED ICAP_BAD_REQUEST
34             ICAP_UNAUTHORIZED ICAP_FORBIDDEN ICAP_SERVICE_NOT_FOUND
35             ICAP_METHOD_NOT_ALLOWED ICAP_AUTH_REQUIRED ICAP_REQUEST_TIMEOUT
36             ICAP_LENGTH_REQUIRED ICAP_URI_TOO_LARGE
37             ICAP_SERVER_ERROR ICAP_METHOD_NOT_IMPLEMENTED ICAP_BAD_GATEWAY
38             ICAP_SERVICE_OVERLOADED ICAP_GATEWAY_TIMEOUT ICAP_VERSION_NOT_SUPPORTED);
39              
40             @EXPORT = qw(ICAP_VERSION ICAP_REQ_HDR ICAP_RES_HDR ICAP_REQ_BODY
41             ICAP_RES_BODY ICAP_OPT_BODY ICAP_NULL_BODY ICAP_DEF_PORT);
42             @EXPORT_OK = ( @EXPORT, @debug, @req, @resp );
43             %EXPORT_TAGS = (
44             all => [@EXPORT_OK],
45             std => [@EXPORT],
46             debug => [@debug],
47             req => [@req],
48             resp => [@resp],
49             );
50              
51 4     4   23 use constant ICAPDEBUG1 => 5;
  4         7  
  4         268  
52 4     4   21 use constant ICAPDEBUG2 => 6;
  4         6  
  4         165  
53 4     4   32 use constant ICAPDEBUG3 => 7;
  4         7  
  4         247  
54 4     4   19 use constant ICAPDEBUG4 => 8;
  4         7  
  4         181  
55              
56 4     4   65 use constant ICAP_DEF_PORT => 1344;
  4         8  
  4         213  
57 4     4   22 use constant ICAP_VERSION => 'ICAP/1.0';
  4         7  
  4         194  
58              
59 4     4   22 use constant ICAP_REQ_HDR => 'req-hdr';
  4         7  
  4         181  
60 4     4   20 use constant ICAP_RES_HDR => 'res-hdr';
  4         7  
  4         195  
61 4     4   32 use constant ICAP_REQ_BODY => 'req-body';
  4         8  
  4         196  
62 4     4   19 use constant ICAP_RES_BODY => 'res-body';
  4         6  
  4         186  
63 4     4   20 use constant ICAP_OPT_BODY => 'opt-body';
  4         8  
  4         169  
64 4     4   21 use constant ICAP_NULL_BODY => 'null-body';
  4         6  
  4         168  
65              
66 4     4   21 use constant ICAP_REQMOD => 'REQMOD';
  4         13  
  4         181  
67 4     4   27 use constant ICAP_RESPMOD => 'RESPMOD';
  4         7  
  4         169  
68 4     4   20 use constant ICAP_OPTIONS => 'OPTIONS';
  4         6  
  4         174  
69              
70 4     4   19 use constant ICAP_CONTINUE => 100;
  4         7  
  4         169  
71 4     4   20 use constant ICAP_OK => 200;
  4         6  
  4         157  
72 4     4   20 use constant ICAP_NO_MOD_NEEDED => 204;
  4         7  
  4         173  
73 4     4   20 use constant ICAP_BAD_REQUEST => 400;
  4         32  
  4         155  
74 4     4   33 use constant ICAP_UNAUTHORIZED => 401;
  4         34  
  4         202  
75 4     4   52 use constant ICAP_FORBIDDEN => 403;
  4         8  
  4         158  
76 4     4   20 use constant ICAP_SERVICE_NOT_FOUND => 404;
  4         8  
  4         173  
77 4     4   19 use constant ICAP_METHOD_NOT_ALLOWED => 405;
  4         12  
  4         158  
78 4     4   18 use constant ICAP_AUTH_REQUIRED => 407;
  4         8  
  4         163  
79 4     4   493 use constant ICAP_REQUEST_TIMEOUT => 408;
  4         8  
  4         174  
80 4     4   32 use constant ICAP_LENGTH_REQUIRED => 411;
  4         38  
  4         173  
81 4     4   22 use constant ICAP_URI_TOO_LARGE => 414;
  4         7  
  4         173  
82 4     4   27 use constant ICAP_BAD_COMPOSTION => 418;
  4         5  
  4         193  
83 4     4   20 use constant ICAP_SERVER_ERROR => 500;
  4         7  
  4         172  
84 4     4   20 use constant ICAP_METHOD_NOT_IMPLEMENTED => 501;
  4         7  
  4         171  
85 4     4   19 use constant ICAP_BAD_GATEWAY => 502;
  4         6  
  4         173  
86 4     4   21 use constant ICAP_SERVICE_OVERLOADED => 503;
  4         6  
  4         182  
87 4     4   25 use constant ICAP_GATEWAY_TIMEOUT => 504;
  4         8  
  4         187  
88 4     4   21 use constant ICAP_VERSION_NOT_SUPPORTED => 505;
  4         7  
  4         328  
89              
90             #####################################################################
91             #
92             # Net::ICAP::Common code follows
93             #
94             #####################################################################
95              
96             1;
97              
98             __END__