xref: /openbsd-src/gnu/usr.bin/perl/dist/Attribute-Handlers/demo/demo_hashdir.pl (revision b39c515898423c8d899e35282f4b395f7cad3298)

use Attribute::Handlers autotie => { Dir => 'Tie::Dir qw(DIR_UNLINK)' };

my %dot : Dir('.', DIR_UNLINK);

print join "\n", keys %dot;

delete $dot{killme};

print join "\n", keys %dot;