File Coverage

blib/lib/Mail/Colander/Server/Util.pm

Criterion	Covered	Total	%
statement	14	35	40.0
branch	0	12	0.0
condition	0	7	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	20	61	32.7

package Mail::Colander::Server::Util;
use v5.24;
use warnings;
use experimental qw< signatures >;
{ our $VERSION = '0.004' }

use Data::HexDump::XXD qw< xxd >;

use Exporter qw< import >;
our @EXPORT_OK = qw< xxd_message >;

sub xxd_message ($data, %opts) {
   my @lines = xxd($data);

   my $n_max_lines = $opts{max_lines} // 3;
   if ($n_max_lines > 0 && @lines > $n_max_lines) {
      if ($n_max_lines == 1) {
         splice(@lines, 1);
      }
      elsif ($n_max_lines == 2) {
         splice(@lines, 1);
         push(@lines, '...');
      }
      else {
         my $last_line = pop(@lines);
         splice(@lines, $n_max_lines - 2);
         push(@lines, '...', $last_line);
      }
   }

   my $prefix = $opts{prefix} // '  ';
   @lines = map { $prefix . $_ } @lines;

   if (defined(my $pre = $opts{preamble})) {
      unshift(@lines, ref($pre) eq 'ARRAY' ? $pre->@* : $pre);
   }

   return @lines if wantarray;
   return join("\n", @lines);
}

1;