File Coverage

blib/lib/Net/Bot/IRC/Message.pm

Criterion	Covered	Total	%
statement	29	31	93.5
branch	3	6	50.0
condition	2	6	33.3
subroutine	7	7	100.0
pod	3	3	100.0
total	44	53	83.0

package Net::Bot::IRC::Message;

use warnings;
use strict;

use Params::Validate;
use Carp;

=head1 NAME

Net::Bot::IRC::Message - An IRC protocol message class.

=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';


=head1 SYNOPSIS

    use Net::Bot::IRC::Message;

    my $outgoing = Net::Bot::IRC::Message->new({
        prefix  => $prefix, #Optional
        command => $cmd,
        params  => $params,
    });
    my $raw_message = $outgoing->compile();

    my $incoming = Net::Bot::IRC::Message->new({
        unparsed => $raw_message,
    });
    my ($prefix, $command, $params)
        = $incoming->parse();


=head1 FUNCTIONS

=head2 new( prefix => $prefix, command => $cmd, params => $params )

=head2 new( unparsed => $raw_message )

=cut

sub new {
    my $class = shift;
    my $self  = validate(@_, {
        # For outgoing messages.
        prefix   => {
            optional => 1,
            depends  => [ 'command', 'params' ],
        },
        command  => {
            optional => 1,
            depends  => [ 'params' ],
        },
        params   => {
            optional => 1,
            depends  => [ 'command' ],
        },
        # For incoming messages
        unparsed => {
            optional => 1,
        },
    });

    bless $self, $class;
    return $self;
}

=head2 parse()

=cut

sub parse {
    my $self = shift;
    unless (exists $self->{unparsed}) {
        croak "No message to parse.";
    }

    my $message = $self->{unparsed};

    if ($message =~ /:(\S+) (\d\d\d) (.+)/) {
        $self->{prefix}  = $1;
        $self->{command} = $2;
        $self->{params}  = $3;
    }

    return ($self->{prefix},
            $self->{command},
            $self->{params});
}

=head2 compile()

=cut

sub compile {
    my $self = shift;

    unless (   exists $self->{prefix}
            && exists $self->{command}
            && exists $self->{params}) {
        croak "Prefix, command and params not specified.";
    }

    my $message = ":" . $self->{prefix}  . " "
                      . $self->{command} . " "
                      . $self->{params};

    $self->{unparsed} = $message;

    return $self->{unparsed};
}

=head1 AUTHOR

Mark Caudill, C<<  >>

=head1 SOURCE

The source for this module is maintained at C<<  >>.

=head1 BUGS

Please report any bugs or feature requests to C, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Net::Bot::IRC::Message


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back

=head1 COPYRIGHT & LICENSE

Copyright 2010 Mark Caudill.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.


=cut

1; # End of Net::Bot::IRC::Message