File Coverage

blib/lib/MooseX/App/Message/BlockColor.pm

Criterion	Covered	Total	%
statement	21	41	51.2
branch	1	8	12.5
condition	0	3	0.0
subroutine	8	10	80.0
pod	1	1	100.0
total	31	63	49.2

# ============================================================================
package MooseX::App::Message::BlockColor;
# ============================================================================

use 5.010;
use utf8;

use namespace::autoclean;
use Moose;
extends qw(MooseX::App::Message::Block);
no if $] >= 5.018000, warnings => qw(experimental::smartmatch);

use Term::ANSIColor qw();
use IO::Interactive qw(is_interactive);

BEGIN {
    if ($^O eq 'MSWin32') {
        Class::Load::try_load_class('Win32::Console::ANSI');
    }
};

sub stringify {
    my ($self) = @_;

    my $header_color;
    my $body_color;
    given ($self->type) {
        when('error') {
            $header_color = 'bright_red bold';
            $body_color = 'bright_red';
        }
        when('default') {
            $header_color = 'bold';
        }
        default {
            $header_color = $_;
        }
    }

    my $message = '';
    if ($self->has_header) {
        $message .= $self->_wrap_color($header_color,$self->header)."\n";
    }

    if ($self->has_body) {
        $message .= $self->_wrap_color($body_color,$self->body)."\n\n";
    }

    return $message;
}

sub _wrap_color {
    my ($self,$color,$string) = @_;

    return $string
        unless is_interactive()
        && defined $color;

    return Term::ANSIColor::color($color)
        .$string
        .Term::ANSIColor::color('reset');
}

__PACKAGE__->meta->make_immutable;
1;