Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
my %h1 = ( a=>1, b=>2, c=>3 );
my %h2 = ( a=>3, b=>2, d=>4, e=>5 );

use Test::More qw/no_plan/;
is_deeply( \%h1, \%h2, "h1 vs h2" );
...
#     $expected->{e} = '5'
1..1
# Looks like you failed 1 test of 1.

use Test::More qw/no_plan/;
use Test::Differences;
...
# +----+-----------+----+-----------+
1..1
# Looks like you failed 1 test of 1.

use Test::More qw/no_plan/;
use Test::Deep;
...
# Extra: 'c'
1..1
# Looks like you failed 1 test of 1.