view release on metacpan or  search on metacpan

t/02_hash_overlay.t  view on Meta::CPAN

#!/usr/bin/env perl
use warnings;
use strict;
use Data::Pack ':all';
use Test::More tests => 1;
use Test::Differences;
my %h = (
    a => 1,
    b => [ 2 .. 4, undef, 6 .. 8 ],
    f => (
        bless {
            f1 => undef,
            f2 => 'f2',
        },
        'Foo'
    ),
);

my %h2 = (%h, a => undef, g => [ 'a'..'c' ]);
my %hp = (
    b => [ 2 .. 4, 6 .. 8 ],
    f => (bless { f2 => 'f2', }, 'Foo'),
    g => [ 'a', 'b', 'c' ],
);
eq_or_diff(scalar(pack_data(\%h2)), \%hp, 'pack overlaid hash');