File Coverage

blib/lib/WebService/Upcoming/Object/State.pm
Criterion Covered Total %
statement 4 9 44.4
branch 0 2 0.0
condition n/a
subroutine 2 5 40.0
pod 0 1 0.0
total 6 17 35.2


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