21 lines
325 B
Perl
21 lines
325 B
Perl
package CW::Template;
|
|
|
|
use Moo;
|
|
use Types::Standard qw(HashRef);
|
|
|
|
has ctx => (
|
|
is => 'ro',
|
|
required => 1,
|
|
isa => HashRef
|
|
);
|
|
|
|
sub render {
|
|
my ($self) = @_;
|
|
return [
|
|
h1 => ["Undefined Template"],
|
|
p => [ "You should probably implement this template! " . ref($self) ]
|
|
];
|
|
}
|
|
|
|
1;
|