File Coverage

blib/lib/BeamerReveal/TemplateStore.pm

Criterion	Covered	Total	%
statement	9	36	25.0
branch	0	12	0.0
condition	0	3	0.0
subroutine	3	7	42.8
pod	3	3	100.0
total	15	61	24.5

# -*- cperl -*-
# ABSTRACT: TemplateStore


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

use parent 'Exporter';
use Carp;

use BeamerReveal::Log;

my $store = undef;


sub new {
  my $class = shift;

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



sub fetch {
  my $self = shift;
  my ( $library, $fileName ) = @_;

  my $key = $library . '/' . $fileName;
  $store->{$key} = _readTemplate( $library, $fileName ) unless( exists $store->{$key} );
  return $store->{$key};
}


sub stampTemplate {
  my ( $string, $hash ) = @_;

  while( my ( $stamp, $value ) = each %$hash ) {
    if ( defined( $value ) ) {
      $string =~ s/---${stamp}---/$value/g;
    }
    else {
      my $lcstamp = lc( $stamp );
      $string =~ s/(?:${lcstamp}\s*[:=]\s*)?"?-*-${stamp}-*-"?//g;
    }
  }
  return $string;
}


sub _readTemplate {
  my ( $library, $fileName ) = @_;

  my $home = $^O eq 'MSWin32' ? $ENV{'userprofile'} : $ENV{'HOME'};
  my $configDir = $ENV{'BEAMERREVEAL_CONFIG'}
    // "$home/.config/BeamerReveal";
  my $templateFileName = "$configDir/templates/$library/$fileName";
  $templateFileName = File::ShareDir::dist_dir( 'BeamerReveal' ) . "/templates/$library/$fileName"
    if ( ! -r $templateFileName );

  my $templateFile = IO::File->new();
  $templateFile->open( "<$templateFileName" )
    or $BeamerReveal::Log::logger->fatal( "Error: installation incomplete - cannot find the template file '$fileName'" );
  my $content = do { local $/; <$templateFile> };
  return $content;
}


1;

__END__