test.pl

use Test::Stream -V1, Compare => '*';

is(
    { a => 'foo', b => 'bar' },
    hash {
        field a => match qr/fox/;
        field b => match qr/box/;
    },
    "Sample"
);

done_testing;

__END__

test.pl ..
not ok 1 - Sample
1..1
# Failed test 'Sample'
# at test.pl line 9.
# +------+-----------------+----+----------+------+
# | PATH | GOT             | OP | CHECK    | LNs  |
# +------+-----------------+----+----------+------+
# |      | HASH(0x2680f30) |    | <HASH>   | 5, 9 |
# | {a}  | foo             | =~ | (?^:fox) | 6    |
# | {b}  | bar             | =~ | (?^:box) | 7    |
# +------+-----------------+----+----------+------+