—# *****************************************************************************
# * *
# * WebService::Upcoming::Object::Watchlist *
# * *
# *****************************************************************************
# Package *********************************************************************
# Uses ************************************************************************
use
strict;
# Exports *********************************************************************
our
@ISA
= (
'WebService::Upcoming::Object'
);
our
$VERSION
=
'0.05'
;
# Code ************************************************************************
sub
new {
return
WebService::Upcoming::Object::new(
@_
); }
sub
_name {
return
'watchlist'
; }
sub
_list {
shift
;
return
(
'id'
,
'event_id'
,
'status'
)
if
(
$_
[0] eq
'1.0'
);
return
(); }
sub
_info {
return
(
{
'upco'
=>
'watchlist.getList'
,
'http'
=>
'GET'
},
{
'upco'
=>
'watchlist.add'
,
'http'
=>
'POST'
},
{
'upco'
=>
'watchlist.remove'
,
'http'
=>
'POST'
} ); }
1;
__END__
=head1 NAME
WebService::Upcoming::Object::Watchlist - Watchlist response object to the Upcoming API
=head1 AUTHOR
Copyright (C) 2005, Greg Knauss, E<lt>greg@eod.comE<gt>
=head1 SEE ALSO
L<WebService::Upcoming>
=cut