File Coverage

blib/lib/WebService/Upcoming/Object/Watchlist.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::Watchlist *
4             # * *
5             # *****************************************************************************
6              
7              
8             # Package *********************************************************************
9             package WebService::Upcoming::Object::Watchlist;
10              
11              
12             # Uses ************************************************************************
13 1     1   6 use strict;
  1         2  
  1         33  
14 1     1   5 use WebService::Upcoming::Object;
  1         2  
  1         191  
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(@_); }
24 0     0   0 sub _name { return 'watchlist'; }
25 0     0   0 sub _list { shift;
26 0 0       0 return ('id','event_id','status') if ($_[0] eq '1.0');
27 0         0 return (); }
28             sub _info { return (
29 1     1   9 { 'upco' => 'watchlist.getList','http' => 'GET' },
30             { 'upco' => 'watchlist.add', 'http' => 'POST' },
31             { 'upco' => 'watchlist.remove', 'http' => 'POST' } ); }
32             1;
33             __END__