File Coverage

blib/lib/WWW/Slides/Controller/Multiple.pm

Criterion	Covered	Total	%
statement	72	73	98.6
branch	10	12	83.3
condition			n/a
subroutine	15	15	100.0
pod	6	8	75.0
total	103	108	95.3

package WWW::Slides::Controller::Multiple;
{

   use version; our $VERSION = qv('0.0.9');

   use warnings;
   use strict;
   use Carp;

   use Object::InsideOut qw( WWW::Slides::Controller );

   # Other recommended modules (uncomment to use):
   #  use IO::Prompt;
   #  use Perl6::Export;
   #  use Perl6::Slurp;
   #  use Perl6::Say;
   #  use Regexp::Autoflags;
   #  use Readonly;

   # Module implementation here
   my @controllers : Field # Repository for handles
      : Std(Name => 'controllers', Private => 1)
      : Get(Name => 'controllers', Private => 1);

   sub _init : Init {
      my $self = shift;
      $self->set_controllers([]);
   }

   sub is_alive {
      my $self = shift;
      $self->remove(grep { ! $_->is_alive() } @{ $self->controllers() });
      return 1;  # By definition
   }

   sub shut_down {
      my $self = shift;
      $self->release_selector();
      $self->SUPER::shut_down();
      return;
   }

   sub add {
      my $self = shift;
      my $selector = $self->selector();
      my $controllers = $self->controllers();
      for my $controller (@_) {
         push @$controllers, $controller;
         $controller->set_selector($selector) if $selector;
      }
      return;
   }

   sub remove {
      my $self = shift;
      my $selector = $self->selector();
      my @remaining = @{$self->controllers()};
      for my $controller (@_) {
         @remaining = grep { $_ ne $controller } @remaining;
         $controller->release_selector($selector) if $selector;
      }
      $self->set_controllers(\@remaining);
      return;
   }

   sub set_selector {
      my $self = shift;
      my ($selector) = @_;
      $self->SUPER::set_selector($selector);
      $_->set_selector($selector) for @{ $self->controllers() || [] };
      return;
   }

   sub release_selector {
      my $self = shift;
      my $selector = $self->selector() or return;
      $_->release_selector($selector) for @{ $self->controllers() || [] };
      $self->SUPER::release_selector();
      return;
   }

   sub owns {
      my $self = shift;
      my ($fh) = @_;
      return defined $self->get_owner($fh);
   }

   # get_input_chunk not overridden, cannot be called
   # output not overridden, cannot be called

   sub get_owner : Private {
      my $self = shift;
      my ($fh) = @_;
      for my $c (@{ $self->controllers() }) {
         return $c if $c->owns($fh);
      }
      return;
   }

   sub execute_commands { # Get commands from applicable component
      my $self = shift;
      my ($fh, $talk) = @_;
      return $self->get_owner($fh)->execute_commands($fh, $talk);
   } ## end sub get_commands

}
1;    # Magic true value required at end of module
__END__