File Coverage

blib/lib/Alice/Request.pm

Criterion	Covered	Total	%
statement	3	9	33.3
branch	0	2	0.0
condition			n/a
subroutine	1	4	25.0
pod	0	3	0.0
total	4	18	22.2

package Alice::Request;

use Any::Moose;

has line => (
  is => 'ro',
  required => 1,
);

has stream => (
  is => 'ro',
  required => 1,
);

has irc => (is => 'rw');

has window => (
  is => 'ro',
  required => 1,
);

sub reply {
  my ($self, $line) = @_;
  $self->stream->send({
    type => "action",
    event => "announce",
    body => $line,
  });
}

sub send_srv {
  my $self = shift;
  $self->irc->send_srv(@_) if $self->irc->is_connected;
}

sub nick {
  my $self = shift;
  $self->irc->nick;
}

__PACKAGE__->meta->make_immutable;
1;