/usr/local/CPAN/Net-YahooMessenger/Net/YahooMessenger/GoesOffline.pm

• package Net::YahooMessenger::GoesOffline
  • source
  • from
  • to_string
• __END__
• EOF

package Net::YahooMessenger::GoesOffline;
use base 'Net::YahooMessenger::Event';
use strict;

sub source {
    my $self = shift;
    if (@_) {
        $self->SUPER::source(@_);
        my $yahoo = $self->get_connection;
        my ($buddy) = grep { $_->name eq lc $self->from } $yahoo->buddy_list;
        return unless $buddy;

        $buddy->online(undef);
    }
    $self->SUPER::source();
}

sub from {
    my $self = shift;
    $self->_get_by_name('BUDDY_ID');
}

sub to_string {
    my $self = shift;
    sprintf "%s: goes offline", $self->{sender};
}

1;
__END__