[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / 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;
Commit	Line	Data
86530b38 AT	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;