File: | blib/lib/HTML/Display/Dump.pm |
Coverage: | 0.0% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package HTML::Display::Dump; | ||||||
2 | use strict; | ||||||
3 | use parent 'HTML::Display::Common'; | ||||||
4 | use vars qw($VERSION); | ||||||
5 | $VERSION='0.37'; | ||||||
6 | |||||||
7 - 30 | =head1 NAME HTML::Display::Dump - dump raw HTML to the console =head1 SYNOPSIS =for example use HTML::Display; =for example begin my $browser = HTML::Display->new( class => 'HTML::Display::Dump', ); $browser->display("<html><body><h1>Hello world!</h1></body></html>"); =for example end =for example_testing isa_ok($browser,"HTML::Display::Common"); is($_STDOUT_,"<html><body><h1>Hello world!</h1></body></html>","Dumped output"); is($_STDERR_,undef,"No warnings"); =cut | ||||||
31 | |||||||
32 | sub display_html { print $_[1]; }; | ||||||
33 | |||||||
34 | 1; |