gistfile1.txt

    my $got_str     = _dd($got)."\n";
    my $expects_str = _dd($expects)."\n";
    if (length $got_str > 10000 && length $expects_str > 10000) {
        require Test::Differences;
        Test::Differences::eq_or_diff($got, $expects);
        return;
    }
    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'),
        ));
    };