ACME-Error-HTML

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension ACME::Error::HTML.

0.01  Fri Sep 20 16:19:35 2002
	- original version; created by h2xs 1.2 with options
		-XAn ACME::Error::HTML

HTML.pm  view on Meta::CPAN

package ACME::Error::HTML;

use strict;
no  strict 'refs';

use vars q[$VERSION];
$VERSION = '0.01';

use HTML::FromText;

*die_handler = *warn_handler = sub {
  return text2html "@_",
                   paras        => 1,
                   bold         => 1,
                   metachars    => 0,
                   urls         => 1,
                   email        => 1,
                   underline    => 1,
                   blockparas   => 1,
                   numbers      => 1,
                   bullets      => 1;
};

1;
__END__

=head1 NAME

ACME::Error::HTML - ACME::Error Backend to Markup Errors with HTML

=head1 SYNOPSIS

  use ACME::Error HTML;

  warn "blink"; # <p>blink</p>

=head1 DESCRIPTION

Converts your errors to HTML.

=head1 AUTHOR

Casey West <F<casey@geeknest.com>>

=head1 COPYRIGHT

Copyright (c) 2002 Casey R. West <casey@geeknest.com>.  All
rights reserved.  This program is free software; you can
redistribute it and/or modify it under the same terms as
Perl itself.

=head1 SEE ALSO

perl(1), HTML::FromText.

=cut

MANIFEST  view on Meta::CPAN

Changes
HTML.pm
Makefile.PL
MANIFEST
test.pl

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    'NAME'		=> 'ACME::Error::HTML',
    'VERSION_FROM'	=> 'HTML.pm', # finds $VERSION
    'PREREQ_PM'		=> { HTML::FromText => 0.01 }, # e.g., Module::Name => 1.1
);

test.pl  view on Meta::CPAN

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

######################### We start with some black magic to print on failure.

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)

BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use ACME::Error::HTML;
$loaded = 1;
print "ok 1\n";

######################### End of black magic.

# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):

 view all matches for this distribution
 view release on metacpan -  search on metacpan