File Coverage

blib/lib/WebService/Upcoming/Object/Event.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::Event *
4             # * *
5             # *****************************************************************************
6              
7              
8             # Package *********************************************************************
9             package WebService::Upcoming::Object::Event;
10              
11              
12             # Uses ************************************************************************
13 1     1   6 use strict;
  1         2  
  1         32  
14 1     1   5 use WebService::Upcoming::Object;
  1         2  
  1         202  
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 'event'; }
25 0     0   0 sub _list { shift;
26 0 0       0 return ('id','name','description','start_date','end_date',
27             'start_time','end_time','personal','selfpromotion',
28             'metro_id','venue_id','user_id','category_id',
29             'date_posted','tags') if ($_[0] eq '1.0');
30 0         0 return (); }
31             sub _info { return (
32 1     1   9 { 'upco' => 'event.getInfo','http' => 'GET' },
33             { 'upco' => 'event.add', 'http' => 'POST' },
34             { 'upco' => 'event.search', 'http' => 'GET' } ); }
35             1;
36             __END__