1 package HTML::Zoom::Producer::BuiltIn;
4 use warnings FATAL => 'all';
7 my ($class, $stream) = @_;
9 while (my ($evt) = $stream->next) { $html .= $class->_event_to_html($evt) }
14 my ($self, $evt) = @_;
16 if (defined $evt->{raw}) {
18 } elsif ($evt->{type} eq 'OPEN') {
21 .(defined $evt->{raw_attrs}
24 my @names = @{$evt->{attr_names}};
26 ? join(' ', '', map qq{${_}="${\$evt->{attrs}{$_}}"}, @names)
30 .($evt->{is_in_place_close} ? ' /' : '')
32 } elsif ($evt->{type} eq 'CLOSE') {
34 } elsif ($evt->{type} eq 'EMPTY') {
37 die "No raw value in event and no special handling for type ".$evt->{type};