view release on metacpan or  search on metacpan

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

use 5.006;    # our
use strict;
use warnings;

package App::colourhexdump::ColourProfile;

our $VERSION = '1.000003';

# ABSTRACT: A Role for Colour Profiles

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

use Moose::Role qw( requires );
use namespace::autoclean;















requires 'get_colour_for';









requires 'get_display_symbol_for';

no Moose::Role;

use Term::ANSIColor 3.00 qw( RESET );







## no critic ( RequireArgUnpacking )

sub get_string_pre {
  my ( $self, $char ) = ( $_[0], $_[1] );
  my $colourcode = $self->get_colour_for($char);
  if ( defined $colourcode ) {
    return $colourcode;
  }
  return q{};
}








## no critic ( RequireArgUnpacking )

sub get_string_post {
  my ( $self, $char ) = ( $_[0], $_[1] );
  my $colourcode = $self->get_colour_for($char);