File Coverage

blib/lib/BeamerReveal/Object.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	26	57.6

# -*- cperl -*-
# ABSTRACT: Object


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

use parent 'Exporter';
use Carp;

use Data::Dumper;

my $errorstring = "Error: BeamerReveal::Object is an abstract base class - only use derived objects\n";


sub new {
  carp( $errorstring );
}


sub makeSlide {
  carp( $errorstring );
}


sub readParameterLine {
  my ( $line ) = @_;
  my $braceconstructRegexp = qr { (?
				    (?
				      \{
				      (?:
					(?> [^{}]+ )
				      |
					(?&brace_group)
				      )*
				      \}
				    )
				  )
			      }xs;
  my $parmdb = {};
  while( $line =~ /(?\w+)=${braceconstructRegexp},*/g ) {
    $parmdb->{$+{kw}} = substr( $+{val}, 1, -1 );
  }
  return $parmdb;
}

1;

__END__