File Coverage

lib/App/Tel/Color/CiscoPingRainbow.pm

Criterion	Covered	Total	%
statement	12	30	40.0
branch	0	6	0.0
condition	0	3	0.0
subroutine	4	7	57.1
pod	2	2	100.0
total	18	48	37.5

package App::Tel::Color::CiscoPingRainbow;
use parent 'App::Tel::Color::Base';
use Term::ANSIColor;
use strict;
use warnings;

=head2 new

    my $color = App::Tel::CiscoPingRainbowColors->new;

New color object..

=cut

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;

    return bless( {
        'current_color' => 0,
        'ping' => 0,
    }, $class);
}

sub _next_color {
    my $self = shift;
    return colored(shift, $App::Tel::ColorObject::colors[$self->{current_color}++ % scalar(@App::Tel::ColorObject::colors)]);
}

=head2 colorize

    my $output = $self->colorize($input);

Given a line of text from a cisco router, this will try to colorize it.

=cut


sub colorize {
    my $self = shift;
    $_ = shift;

    # We need to define a start point in the buffer that the dot regex isn't
    # allowed to search before so that this line and ones before it with
    # dots don't get red dots.
    if (/Sending \d+, \d+-byte ICMP Echos to/) {
        $self->{ping}=1;
    }

    if ($self->{ping}) {
            s/(\!)/$self->_next_color($1)/eg;
            s/(\.)/colored('.', 'red')/eg;
        if (/Success rate is/) {
            $self->{ping}=0;
            $self->{current_color}=0;
        }
    }
    return $_;
}

1;