File Coverage

blib/lib/WebService/Upcoming/Object/Country.pm
Criterion Covered Total %
statement 7 12 58.3
branch 0 2 0.0
condition n/a
subroutine 3 6 50.0
pod 0 1 0.0
total 10 21 47.6


line stmt bran cond sub pod time code
1             # *****************************************************************************
2             # * *
3             # * WebService::Upcoming::Object::Country *
4             # * *
5             # *****************************************************************************
6              
7              
8             # Package *********************************************************************
9             package WebService::Upcoming::Object::Country;
10              
11              
12             # Uses ************************************************************************
13 1     1   6 use strict;
  1         1  
  1         37  
14 1     1   5 use WebService::Upcoming::Object;
  1         1  
  1         186  
15              
16              
17             # Exports *********************************************************************
18             our @ISA = ('WebService::Upcoming::Object');
19             our $VERSION = '0.05';
20              
21              
22             # Code ************************************************************************
23 0     0 0 0 sub new { return WebService::Upcoming::Object::new(shift,@_); }
24 0     0   0 sub _name { return 'country'; }
25 0     0   0 sub _list { shift;
26 0 0       0 return ('id','name','code') if ($_[0] eq '1.0');
27 0         0 return (); }
28             sub _info { return (
29 1     1   5 { 'upco' => 'event.getCountryList','http' => 'GET' } ); }
30             1;
31             __END__