File Coverage

blib/lib/POEx/IRC/Backend/Role/HasWheel.pm

Criterion	Covered	Total	%
statement	6	7	85.7
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod			n/a
total	8	10	80.0

package POEx::IRC::Backend::Role::HasWheel;
$POEx::IRC::Backend::Role::HasWheel::VERSION = '0.030001';
use Types::Standard -all;

use Moo::Role;

has wheel_id => (
  lazy    => 1,
  isa     => Defined,
  is      => 'ro',
  writer  => '_set_wheel_id',
  builder => sub { shift->wheel->ID },
);

has wheel => (
  required  => 1,
  isa       => Maybe[ InstanceOf['POE::Wheel'] ],
  is        => 'ro',
  clearer   => 'clear_wheel',
  writer    => 'set_wheel',
  predicate => 'has_wheel',
  trigger   => sub {
    my ($self, $wheel) = @_;
    $self->_set_wheel_id( $wheel->ID )
  },
);

1;

=pod

=for Pod::Coverage has_\w+

=head1 NAME

POEx::IRC::Backend::Role::HasWheel

=head1 SYNOPSIS

A L for classes that have associated POE::Wheel instances.

=head1 DESCRIPTION

=head2 wheel

A L instance (typically L for listeners
and connectors or L for live connections).

This is primarily for internal use. External code should not interact directly
with the C.

Can be cleared via B; use B to determine if this
listener's wheel has been cleared.

Can be replaced via B (although whether this is a good idea or not
is debatable; better to spawn a new instance of your class)

=head2 wheel_id

The POE ID of the last known L.

=head1 AUTHOR

Jon Portnoy

=cut