Test::Deep::Cond
soh335/Test-Deep-Cond · GitHub
cmp_deeply( { hoge => 3, }, { hoge => code(sub { my $val = shift; 2 < $val and $val < 4 }), }, );
こう書くのはだるいなーと思ってたので
use Test::Deep::Cond; cmp_deeply( { hoge => 3, }, { hoge => cond { 2 < $_ and $_ < 4 }, }, );
こういうのを作りました。見やすいし、分り易くないですかね?