File Coverage

blib/lib/WWW/Slides/SlideTracker.pm

Criterion	Covered	Total	%
statement	54	54	100.0
branch	2	4	50.0
condition			n/a
subroutine	18	18	100.0
pod	12	12	100.0
total	86	88	97.7

package WWW::Slides::SlideTracker;
{
   use version; our $VERSION = qv('0.0.3');

   use warnings;
   use strict;
   use Carp;

   use Object::InsideOut;

   # Module implementation here
   my @slide_show : Field    # Where we're getting the slides from
     : Std(Name => 'slide_show', Private => 1)
     : Get(Name => 'slide_show', Private => 1)
     : Arg(Name => 'slide_show', Mandatory => 1);
   my @current : Field       # Main slide for talk
     : Std(Name => 'current') : Arg(Name => 'current')
     : Get(Name => 'current');
   my @served_slides : Field    # Track already-sent slides
     : Std(Name => 'served_slides', Private => 1);

   sub _init : Init {
      my $self = shift;
      $self->set_served_slides({});
      $self->goto($self->slide_show()->id_first())
         unless defined $self->current();
      return;
   }

   sub already_served_current {
      my $self = shift;
      return exists $self->get_served_slides()->{$self->current()};
   }

   sub current_still_unserved {
      my $self = shift;
      return !($self->already_served_current());
   }

   sub mark_current {
      my $self = shift;
      $self->get_served_slides()->{$self->current()} = 1;
      return;
   }

   sub goto {
      my $self = shift;
      my ($slide_no) = @_;
      return unless $self->slide_show()->validate_slide_id($slide_no);
      $self->set_current($slide_no);
      return;
   }

   sub get_next {
      my $self = shift;
      return $self->slide_show()->id_next($self->current());
   }

   sub goto_next {
      my $self = shift;
      $self->goto($self->get_next());
      return;
   }

   sub get_previous {
      my $self = shift;
      return $self->slide_show()->id_previous($self->current());
   }

   sub goto_previous {
      my $self = shift;
      $self->goto($self->get_previous());
      return;
   }

   sub get_first {
      my $self = shift;
      return $self->slide_show()->id_first();
   }

   sub goto_first {
      my $self = shift;
      $self->goto($self->get_first());
      return;
   }

   sub get_last {
      my $self = shift;
      return $self->slide_show()->id_last();
   }

   sub goto_last {
      my $self = shift;
      $self->goto($self->get_last());
      return;
   }
}

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