diff options
Diffstat (limited to 'lib/Carp/Always/Color/Term.pm')
-rw-r--r-- | lib/Carp/Always/Color/Term.pm | 32 |
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; |