The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Net::IPMessenger::MessageCommand - message command definition and accessor class

SYNOPSIS

    use Net::IPMessenger::MessageCommand;

    my $command = Net::IPMessenger::MessageCommand->new('SENDMSG')->set_secret;

DESCRIPTION

This defines IP Messenger command and option flags. This also gives you accessors of those option flags.

METHODS

Option flag accessors are provided via AUTOLOAD method. you can use get_*, set_* to access those option flags.

new

    my $messagecommand = Net::IPMessenger::MessageCommand->new($command);

Creates object and stores command. If command looks like number, just stores it. Otherwise, tries to convert it by using %COMMAND.

mode

    my $mode = $messagecommand->mode;

Returns command mode part.

modename

    my $modename = $messagecommand->modename;

Returns command modename.

get_command

    my $command = $messagecommand->get_command;

Just returns stored command value.