File Coverage

lib/Test/Chai/Util/ObjDisplay.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	10	10	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	43	44	97.7

package Test::Chai::Util::ObjDisplay;
use strict;
use warnings;
use utf8;

use Exporter qw/import/;
our @EXPORT_OK = qw/obj_display/;

our $TRUNCATE_THRESHOLD = 40;

use Test::Chai::Util::Inspect qw/inspect/;

sub obj_display {
    my $obj = shift;

    my $str = inspect($obj);

    if (ref $obj eq 'CODE') {
        return '[Code]';
    }

    if (length $str >= $TRUNCATE_THRESHOLD) {
        if (ref $obj eq 'ARRAY') {
            return '[ Array('.@$obj.') ]';
        }

        elsif (ref $obj eq 'HASH') {
            my @keys = sort keys %$obj;
            my $kstr = @keys > 2 ?
                join(', ', @keys[0..1]).', ...' : join(', ', @keys);
            return '{ Hash ('.$kstr.') }';
        }

        else {
            return $str;
        }
    }

    else {
        return $str;
    }
}

1;