| 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; | ||||||