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

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

package Net::YMSG::GoesOnline;
use base 'Net::YMSG::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__