Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
dist
/
Attribute-Handlers
/
demo
/
demo_hashdir.pl
blob: 75e252b1a07ae749d61b66d21949d67ab96a5674 [
file
] [
log
] [
blame
]
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
;