Attribute-Handlers/demo/demo_hashdir.pl

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;
Revision:	3783
Committed:	Thu Feb 17 12:49:46 2011 UTC (13 years, 2 months ago) by laffer1
Content type:	text/plain
File size:	186 byte(s)
Log Message:	Virgin import (trimmed) of Perl 5.10.1
#	Content
1	use Attribute::Handlers autotie => { Dir => 'Tie::Dir qw(DIR_UNLINK)' };
2
3	my %dot : Dir('.', DIR_UNLINK);
4
5	print join "\n", keys %dot;
6
7	delete $dot{killme};
8
9	print join "\n", keys %dot;