The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

LNATION / Moonshine-Bootstrap-0.04 / lib / Moonshine / Bootstrap / Component / CoverTemplate.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
—
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

              
package Moonshine::Bootstrap::Component::BasicTemplate;
use Moonshine::Magic;
use Params::Validate qw/ARRAYREF/;
use Moonshine::Util;
lazy_components qw/head meta link script body title/;
extends 'Moonshine::Bootstrap::Component';
has(
    basic_template_spec => sub {
        {
            tag         => { default => 'html' },
            lang        => { default => 'en' },
            header      => { default => [ ], type => ARRAYREF },
            body        => { default => [ ], type => ARRAYREF },
        };
    }
);
sub basic_template {
    my ($self) = shift;
    my ( $base_args, $build_args ) = $self->validate_build(
        {
            params => $_[0] // {},
            spec => $self->basic_template_spec,
        }
    );
    unshift @{ $build_args->{header} }, (
        {
            action      => 'meta',
            charset     => 'utf-8',
        },
        {
            action      => 'meta',
            http_equiv  => 'X-UA-Compatible',
            content     => 'IE=edge',
        },
        {
            action      => 'meta',
            name        => 'viewport',
            content     => 'width=device-width, inline-scale=1',
        },
    );
    my $base_element = Moonshine::Element->new($base_args);
     
    $base_element->add_child( $self->head({ children => $build_args->{header} }) );
    $base_element->add_child( $self->body({ children => $build_args->{body} }) );
    return $base_element;    
}
1;
__END__
=head1 NAME
Moonshine::Bootstrap::Component::BasicTemplate
=head1 SYNOPSIS
    $self->basic_template({  });
returns a Moonshine::Element that renders too..
    <html lang="en">
        <head>
            ...
        </head>
        <body>
            ...
        </body>
    </html>
=cut