Select Code to Download

use Test::More 'tests' => 5;

...
ok( deep_exists( \%h, 'hash', 'shift', 'scalar' ), 'hash shift scalar'
+ );
ok( ! deep_exists( \%h, 'hash', 'shift', 'scalar', 'hash' ),
    'hash shift scalar hash' );