From de72f280ecfd277f66c347a12c965893b1cb2500 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 30 Apr 2010 17:45:24 -0500 Subject: docs --- lib/Carp/Always/Color/HTML.pm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) (limited to 'lib/Carp/Always/Color/HTML.pm') diff --git a/lib/Carp/Always/Color/HTML.pm b/lib/Carp/Always/Color/HTML.pm index 04846ca..53b3f4e 100644 --- a/lib/Carp/Always/Color/HTML.pm +++ b/lib/Carp/Always/Color/HTML.pm @@ -1,6 +1,25 @@ package Carp::Always::Color::HTML; use Carp::Always; +=head1 NAME + +Carp::Always::Color::HTML - Carp::Always, but with HTML color + +=head1 SYNOPSIS + + use Carp::Always::Color::HTML; + +or + + perl -MCarp::Always::Color::HTML -e'sub foo { die "foo" } foo()' + +=head1 DESCRIPTION + +Like L, but forces HTML coloring, regardless of where +STDERR is pointing to. + +=cut + BEGIN { $Carp::Internal{(__PACKAGE__)}++ } sub _die { @@ -31,4 +50,17 @@ END { @SIG{qw(__DIE__ __WARN__)} = @OLD_SIG{qw(__DIE__ __WARN__)}; } +=head1 AUTHOR + + Jesse Luehrs + +=head1 COPYRIGHT AND LICENSE + +This software is copyright (c) 2010 by Jesse Luehrs. + +This is free software; you can redistribute it and/or modify it under +the same terms as perl itself. + +=cut + 1; -- cgit v1.2.3-54-g00ecf