config_sh.PL need to scan dist/ as well as cpan/ and ext/
[perl.git] / ext / 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;