package Wiki::Score::Templates;
use base qw( Template::Provider );

use warnings;
use strict;

=head1 NAME

Wiki::Score::Templates - templates for Wiki::Score

=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';

my $templates = {
'join_h_preamble' => <<'EOT'
% join h preamble
EOT
,
'join_h' => <<'EOT'
[%- preamble -%]
%
[% FOREACH i IN parts %]
	[%- INCLUDE part_h p=i -%]
[% END %]
EOT
,
'part_h' => <<'EOT'
[%- p -%]
EOT
,
'join_v_preamble' => <<'EOT'
% join v preamble
EOT
,
'join_v' => <<'EOT'
[%- preamble -%]
%
[% FOREACH i IN sections %]
   [%- INCLUDE part_v s=i -%]
[% END %]
EOT
,
'part_v' => <<'EOT'
[%- s -%]
EOT
,
'part' => <<'EOT'
X: [% p.x %]
T: [% p.t %]
C: [% p.m %]
%
[% p.abc %]
EOT
};

sub _template_modified {
    my ($self,$path) = @_;

   return 1;
}

sub _template_content {
    my ($self,$path) = @_;

   $path =~ s#^templates/##;

   return $templates->{$path};
}

1; # End of Wiki::Score::Templates