view release on metacpan or  search on metacpan

lib/AnyEvent/RTPG.pm  view on Meta::CPAN

use 5.008;

use common::sense 2.02;
use parent        0.223 "Object::Event";
use AnyEvent      5.202;
use RTPG          0.3;

sub new {
   my $this  = shift;
   my $class = ref($this) || $this;
   my $self  = $class->SUPER::new(@_);
   $self->{_rtpg} = RTPG->new(url=>$self->{url});
   return $self
}

sub _tick {
    my $self = shift;
    my $list=$self->{_rtpg}->torrents_list;
    $self->event("refresh_status"=>\@$list);
}