summaryrefslogtreecommitdiffstats
path: root/lib/Carp/Always/Color/Term.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Carp/Always/Color/Term.pm')
-rw-r--r--lib/Carp/Always/Color/Term.pm32
1 files changed, 32 insertions, 0 deletions
diff --git a/lib/Carp/Always/Color/Term.pm b/lib/Carp/Always/Color/Term.pm
index 5b6b538..c4789f6 100644
--- a/lib/Carp/Always/Color/Term.pm
+++ b/lib/Carp/Always/Color/Term.pm
@@ -1,6 +1,25 @@
package Carp::Always::Color::Term;
use Carp::Always;
+=head1 NAME
+
+Carp::Always::Color::Term - Carp::Always, but with terminal color
+
+=head1 SYNOPSIS
+
+ use Carp::Always::Color::Term;
+
+or
+
+ perl -MCarp::Always::Color::Term -e'sub foo { die "foo" } foo()'
+
+=head1 DESCRIPTION
+
+Like L<Carp::Always::Color>, but forces ANSI terminal code 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 <doy at tozt dot net>
+
+=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;