view release on metacpan or  search on metacpan

lib/Hash/Lazy.pm  view on Meta::CPAN

use strict;
use warnings;
our $VERSION = '0.04';

use Sub::Exporter -setup => {
    exports => [ qw(Hash) ],
    groups => { default => [ qw(Hash) ] }
};

use Hash::Lazy::Tie;
sub Hash(&) {
    my $cb = shift;
    my %h = ();
    tie %h, 'Hash::Lazy::Tie', $cb, \%h;
    return \%h;
}

1;

__END__