File Coverage

blib/lib/WWW/Simpy.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             package WWW::Simpy;
2              
3 1     1   27276 use 5.006001;
  1         4  
  1         123  
4 1     1   6 use strict;
  1         2  
  1         34  
5 1     1   5 use warnings;
  1         7  
  1         36  
6 1     1   516 use XML::Parser;
  0            
  0            
7             use LWP::UserAgent;
8             use URI;
9             use HTTP::Request::Common;
10             use Data::Dumper;
11              
12              
13             use constant API_NETLOC => "www.simpy.com:80";
14             use constant API_REALM => "/simpy/api/rest";
15             use constant API_BASE => "http://" . API_NETLOC . API_REALM . "/";
16              
17             use constant PUBLIC => 1;
18             use constant PRIVATE => 0;
19              
20             use constant SUCCESS => 0;
21             use constant PARAMETER_MISSING => 100;
22             use constant NONEXISTENT_ENTITY => 200;
23             use constant TRANSIENT_ERROR => 300;
24             use constant STORAGE_ERROR => 301;
25             use constant QUOTA_REACHED => 500;
26              
27             # must be all on one line, or MakeMaker will get confused
28             our $VERSION = do { my @r = (q$Revision: 1.15 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
29             $VERSION = eval $VERSION;
30              
31             require Exporter;
32             use AutoLoader qw(AUTOLOAD);
33              
34             our @ISA = qw(Exporter);
35              
36             # Items to export into callers namespace by default. Note: do not export
37             # names by default without a very good reason. Use EXPORT_OK instead.
38             # Do not simply export all your public functions/methods/constants.
39              
40             # This allows declaration use Simpy ':all';
41             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
42             # will save memory.
43             our %EXPORT_TAGS = ( 'all' => [ qw(
44            
45             ) ] );
46              
47             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
48              
49             our @EXPORT = qw( PUBLIC PRIVATE
50             SUCCESS
51             PARAMETER_MISSING
52             NONEXISTENT_ENTITY
53             TRANSIENT_ERROR
54             STORAGE_ERROR
55             QUOTA_REACHED
56             );
57              
58              
59             # Preloaded methods go here.
60              
61             # Autoload methods go after =cut, and are processed by the autosplit program.
62              
63             1;
64             __END__