Yet Another CPAN Grep

IRC-Toolkit ( A/AV/AVENJ/IRC-Toolkit-0.092002.tar.gz, AVENJ, 2016; MetaCPAN )

IRC-Toolkit/lib/IRC/Message/Object.pm ( view source; MetaCPAN )

10 ? $current : substr $current, 0, 510 ;
  }

  (blessed $self)->new(raw_line => $new)
}

sub TO_JSON {
  my ($self) = @_;
  +{
    command => $self->command,
    prefix  => $self->prefix,
    params

TY TO],
  qq[ PUT AN IRCD ON A ROOMBA\n]
unless caller; 1;

=pod

=for Pod::Coverage BUILDARGS TO_JSON has_\w+

=head1 NAME

IRC::Message::Object - Incoming or outgoing IRC events

=head1 SYNOPSIS