File Coverage

lib/Test/Stream/Plugin/Explain/Terse.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	42	42	100.0

use 5.006;    # our
use strict;
use warnings;

package Test::Stream::Plugin::Explain::Terse;

our $VERSION = '0.001000';

# ABSTRACT: Dump anything in a single line in 80 characters or fewer

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

use Test::Stream::Exporter qw/ default_exports import /;
use Data::Dump qw( pp );

default_exports qw/ explain_terse /;

no Test::Stream::Exporter;










use constant MAX_LENGTH  => 80;
use constant RIGHT_CHARS => 1;
use constant ELIDED      => q[...];

sub explain_terse {
  my $content = pp( $_[0] );       # note: using this for now because of list compression
  $content =~ s/\s*\n\s*/ /sxg;    # nuke literal newlines and swallow excess space.
  return $content if length $content <= MAX_LENGTH;

  return ( substr $content, 0, MAX_LENGTH - ( length ELIDED ) - RIGHT_CHARS ) . ELIDED
    . ( substr $content, ( length $content ) - RIGHT_CHARS );

}

1;

__END__