view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
0.11:
- Fixes
 
0.10:
- Re-implemented with the official Plurk API
 
0.04:
- fix dependency
 
0.03:
- fix _tick mis-use of AE::timer, again.
- update tests for the same reason.
 
0.02:
- fix _tick mis-use of AE::timer
 
0.01:
- Implement "unread_plurks" event.

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

107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
                    my $users = $data->{plurk_users};
                    for my $pu (@$unread_plurks) {
                        $pu->{owner} = $users->{$pu->{owner_id}} if $users->{$pu->{owner_id}};
                    }
 
                    $self->event("unread_plurks" => $unread_plurks);
                    $self->{__polling_time_offset} = current_time_offset;
                }
            }
 
            $self->{__polling_timer} = AE::timer 60, 0, sub {
                undef $self->{__polling_timer};
                $self->_start_polling;
            }
        }
    );
}
 
sub start {
    my $self = shift;
 
    $self->login;