そう思ってる人がいっぱいいるってことなので、こんな感じのを書いたらいいのかなと思った。 適当です。 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::