MyCPAN::Indexer::Interface::ANSIText - Present the run info as colored text

MyCPAN-Indexer documentation Contained in the MyCPAN-Indexer distribution.

Index

Code Index:

NAME

Top

MyCPAN::Indexer::Interface::ANSIText - Present the run info as colored text

SYNOPSIS

Top

Use this in backpan_indexer.pl by specifying it as the interface class:

	# in backpan_indexer.config
	interface_class  MyCPAN::Indexer::Interface::ANSIText

DESCRIPTION

Top

This class presents the information as the indexer runs, using plain text. Successful reports are green and failed reports are red.

SEE ALSO

Top

MyCPAN::Indexer::Interface::Text

SOURCE AVAILABILITY

Top

This code is in Github:

	git://github.com/briandfoy/mycpan-indexer.git

AUTHOR

Top

brian d foy, <bdfoy@cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (c) 2008-2009, brian d foy, All Rights Reserved.

You may redistribute this under the same terms as Perl itself.

MyCPAN-Indexer documentation Contained in the MyCPAN-Indexer distribution. 
package MyCPAN::Indexer::Interface::ANSIText;
use strict;
use warnings;

use base qw(MyCPAN::Indexer::Interface::Text)
use vars qw($VERSION $logger);
$VERSION = '1.28';

use Log::Log4perl;
use Term::ANSIColor qw(colored);


sub skip_tick    { BLUE,  $_[0]->SUPER::skip_tick,    RESET }

sub success_tick { GREEN, $_[0]->SUPER::success_tick, RESET }

sub error_tick   { RED,   $_[0]->SUPER::error_tick,   RESET }


1;