File Coverage

blib/lib/Data/Coloured.pm

Criterion	Covered	Total	%
statement	13	26	50.0
branch	0	4	0.0
condition			n/a
subroutine	5	9	55.5
pod	0	4	0.0
total	18	43	41.8

package Data::Coloured;
BEGIN {
  $Data::Coloured::AUTHORITY = 'cpan:GETTY';
}
# ABSTRACT: Visualize random ASCII data streams
$Data::Coloured::VERSION = '0.001';
use strict;
use warnings;
use Exporter 'import';
use Term::ANSIColor qw( colored );

our @EXPORT_OK = qw( pc c );
our @EXPORT = qw( coloured poloured );

our %control = (qw(
    0 NUL
    1 SOH
    2 STX
    3 ETX
    4 EOT
    5 ENQ
    6 ACK
    7 BEL
    8 BS
    9 TAB
   10 LF
   11 VT
   12 FF
   13 CR
   14 SO
   15 SI
   16 DLE
   17 DC1
   18 DC2
   19 DC3
   20 DC4
   21 NAK
   22 SYN
   23 ETB
   24 CAN
   25 EM
   26 SUB
   27 ESC
   28 FS
   29 GS
   30 RS
   31 US
  127 DEL
));

our %colours = (qw(
  control bright_red
  print   bright_yellow
  binary  bright_cyan
));

our @control_delimiter = qw( [ ] );
our @binary_delimiter = qw( < > );

sub poloured {
  print coloured(@_);
}
sub pc { poloured(@_) }

sub coloured {
  my $data = join('',@_);
  my @chars = split(//,$_[0]);
  my $output = "";
  for my $char (@chars) {
    my $chr = ord($char);
    if (defined $control{$chr}) {
      $output .= colored($control_delimiter[0].$control{$chr}.$control_delimiter[1],$colours{control});
    } elsif ($char =~ /[ -~]/) {
      $output .= colored($char,$colours{print});
    } else {
      $output .= colored($binary_delimiter[0].unpack('H*',$char).$binary_delimiter[1], $colours{binary});
    }
  }
  return $output;
}
sub c { coloured(@_) }

1;

__END__