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