—

              
HideShow 5 lines of Pod
=head1 NAME
latin - just some example code using HTML::Stream::Latin1
=cut
use HTML::Stream;
accept_tag HTML::Stream 'BLORF';
$PLAIN = new HTML::Stream \*STDOUT;
$LATIN = new HTML::Stream::Latin1 \*STDOUT;
sub test {
    my $HTML = shift;
    $HTML -> nl 
          -> H2 -> t("From ", ref($HTML), "...") -> _H2
          -> nl;
    $HTML -> t(qq{\253Fran\347ois, },
               qq{a \"right angle\" is 90\260, \277No?\273}) -> nl;
    $HTML -> P  -> t("This example uses \\251: Copyright \251 1997 by me!")
          -> BR -> t("This example uses ent(): Copyright ") 
                -> e('copy') -> t(" 1997 by me!");
    $HTML -> P -> BLORF -> t("Hi!") -> _BLORF -> nl;
    $HTML -> BLORF -> t("Hi!") -> _BLORF;
    $HTML -> nl(2);
}
test($PLAIN);
test($LATIN);