File Coverage

blib/lib/WebService/UrbanAirship.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package WebService::UrbanAirship;
2              
3 7     7   2775 use 5.006;
  7         24  
  7         286  
4              
5 7     7   41 use strict;
  7         12  
  7         267  
6 7     7   46 use warnings FATAL => qw(all);
  7         12  
  7         253  
7              
8 7     7   10149 use URI ();
  7         41487  
  7         885  
9              
10              
11             #---------------------------------------------------------------------
12             # globals
13             #---------------------------------------------------------------------
14              
15             our $DEBUG = 0;
16              
17             our $VERSION = "0.04";
18              
19              
20             #---------------------------------------------------------------------
21             # constructor
22             #---------------------------------------------------------------------
23             sub new {
24              
25 2     2 0 1725 my $class = shift;
26              
27 2         7 my $self = {};
28              
29 2         6 bless $self, $class;
30              
31 2         6 return $self;
32             }
33              
34              
35             #---------------------------------------------------------------------
36             # the default urban airship api url
37             #---------------------------------------------------------------------
38             sub _api_uri {
39              
40 1     1   8 return URI->new('https://go.urbanairship.com/');
41             }
42              
43              
44             1;
45              
46             __END__