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

• package Net::YMSG::ChallengeStart
  • id
  • body
  • code
  • to_string
• __END__
• EOF

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