Move Attribute::Handlers from ext/ to dist/
[perl.git] / dist / Attribute-Handlers / demo / demo_hashdir.pl
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;