gistfile1.pl

use strict;
use warnings;
use Test::More;
use String::Diff;
use Data::Dumper;
use Term::ANSIColor qw(color);

sub is_deeeeeeeeeply {
    my ($got, $expects, $desc) = @_; 
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    local $Data::Dumper::Terse    = 1;
    local $Data::Dumper::Sortkeys = 1;
    local $Data::Dumper::Indent   = 0;
        
    my $got_str     = Data::Dumper::Dumper($got)."\n";
    my $expects_str = Data::Dumper::Dumper($expects)."\n";
    ok $got_str eq $expects_str, $desc or do {;
        note String::Diff::diff($got_str, $expects_str, (
            remove_open  => color('black on_red'),
            remove_close => color('reset'),
            append_open  => color('black on_green'),
            append_close => color('reset'),
        )); 
    };  
}

is_deeeeeeeeeply [ nekokak => { dis => 'true' } ], [ nekokak => { dis => 'false'} ];

done_testing;