File Coverage

blib/lib/BeamerReveal/Object/Presentation.pm

Criterion	Covered	Total	%
statement	15	29	51.7
branch	0	6	0.0
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	21	42	50.0

# -*- cperl -*-
# ABSTRACT: Presentation object


package BeamerReveal::Object::Presentation;
our $VERSION = '20260208.1851'; # VERSION

use parent 'BeamerReveal::Object';
use Carp;

use Data::Dumper;

use BeamerReveal::TemplateStore;
use BeamerReveal::Log;


sub new {
  my $class = shift;
  my ( $chunkData, $lines, $lineCtr ) = @_;

  my $logger = $BeamerReveal::Log::logger;

  $class = (ref $class ? ref $class : $class );
  my $self = {};
  bless $self, $class;

  $self->{videos} = [];
  foreach my $line ( @$lines ) {
    ++$lineCtr;
    ( $line =~ /^-(?\w+):(?.*)$/ )
      or $logger->fatal( "Error: syntax incorrect in rvl file on line $lineCtr '$line'\n" );
    if ( $+{command} eq 'parameters' ) {
      $self->{parameters} = BeamerReveal::Object::readParameterLine( $+{payload} );
    }
    else {
      $logger->fatal( "Error: unknown Presentation data on line $lineCtr '$line'\n" );
    }
  }

  return $self;
}
1;

__END__