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

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

package Net::YahooMessenger::GoesOnline;
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(1);
    }
    $self->SUPER::source();
}

sub from {
    my $self = shift;

    #	$self->{from} = shift if @_;
    #	return $self->{from};
    $self->_get_by_name('BUDDY_ID');
}

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

1;
__END__