view release on metacpan or  search on metacpan

lib/App/colourhexdump/DefaultColourProfile.pm  view on Meta::CPAN

use 5.006;
use strict;
use warnings;

package App::colourhexdump::DefaultColourProfile;

our $VERSION = '1.000003';

# ABSTRACT: The default colour profile

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use Moose qw( has with );
use namespace::autoclean;

with 'App::colourhexdump::ColourProfile';

__PACKAGE__->meta->make_immutable;
no Moose;

use Term::ANSIColor 3.00 qw( BLACK ON_RED BOLD BRIGHT_BLUE BRIGHT_YELLOW ON_YELLOW RED BLUE YELLOW );







## no critic ( Subroutines::RequireArgUnpacking )
sub get_colour_for {
  return BLACK . ON_RED                 if $_[1] =~ /\r/;
  return BOLD . BRIGHT_BLUE             if $_[1] =~ /\n/;
  return BLUE                           if $_[1] =~ / /;
  return BOLD . BRIGHT_BLUE . ON_YELLOW if $_[1] =~ /\t/;
  return RED                            if $_[1] =~ qr{[^[:print:]]};
  return                                if $_[1] =~ qr{[[:alpha:]\d]};
  return YELLOW;
}







## no critic ( Subroutines::RequireArgUnpacking )

sub get_display_symbol_for {
  return q{_} if $_[1] =~ qr{\s};
  return q{.} if $_[1] =~ qr{[^[:print:]]};
  return $_[1];
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

App::colourhexdump::DefaultColourProfile - The default colour profile

=head1 VERSION

version 1.000003

=head1 SYNOPSIS

This is the default colour profile.

    \r           => black on red               '_'