1use Attribute::Handlers autotie => { Dir => 'Tie::Dir qw(DIR_UNLINK)' };
2
3my %dot : Dir('.', DIR_UNLINK);
4
5print join "\n", keys %dot;
6
7delete $dot{killme};
8
9print join "\n", keys %dot;
10