blob: 75e252b1a07ae749d61b66d21949d67ab96a5674 (
plain)
1
2
3
4
5
6
7
8
9
|
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;
|