package
Net::YMSG::ChallengeStart;
use
strict;
sub
id
{
my
$self
=
shift
;
$self
->_set_by_name(
'NICKNAME'
,
shift
)
if
@_
;
$self
->_get_by_name(
'NICKNAME'
);
}
sub
body
{
my
$self
=
shift
;
$self
->_set_by_name(
'CHALLENGE_STRING'
,
shift
)
if
@_
;
$self
->_get_by_name(
'CHALLENGE_STRING'
);
}
sub
code
{
return
87;
}
sub
to_string
{
my
$self
=
shift
;
}
1;
__END__