view release on metacpan or  search on metacpan

lib/HTML/HTML5/Writer.pm  view on Meta::CPAN

82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
        track@default
        video@autoplay video@preload video@controls video@loop
        );
our @OptionalStart = qw(html head body tbody);
our @OptionalEnd = qw(html head body tbody dt dd li optgroup
        option p rp rt td th tfoot thead tr);
 
sub new
{
        my ($class, %opts) = @_;
        my $self = bless \%opts => $class;
         
        $self->{'markup'}   //= 'html';
        $self->{'charset'}  //= 'utf8';
        $self->{'refs'}     //= 'hex';
        $self->{'doctype'}  //= ($self->is_xhtml? DOCTYPE_LEGACY : DOCTYPE_HTML5);
        $self->{'polyglot'} //= !!$self->is_xhtml;
         
        return $self;
}