File Coverage

blib/lib/WebService/Upcoming/Object/Venue.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::Venue *
4             # * *
5             # *****************************************************************************
6              
7              
8             # Package *********************************************************************
9             package WebService::Upcoming::Object::Venue;
10              
11              
12             # Uses ************************************************************************
13 1     1   6 use strict;
  1         1  
  1         33  
14 1     1   5 use WebService::Upcoming::Object;
  1         2  
  1         203  
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 'venue'; }
25 0     0   0 sub _list { shift;
26 0 0       0 return ('id','name','address','city','zip','phone','url',
27             'description') if ($_[0] eq '1.0');
28 0         0 return (); };
29             sub _info { return (
30 1     1   8 { 'upco' => 'venue.add', 'http' => 'POST' },
31             { 'upco' => 'venue.getInfo','http' => 'GET' },
32             { 'upco' => 'venue.getList','http' => 'GET' },
33             { 'upco' => 'venue.search', 'http' => 'GET' } ); }
34             1;
35             __END__