Lines Matching refs:dh
31 my $dh = gensym;
33 IO::Dir::open($dh, $_[0])
36 bless $dh, $class;
40 my ($dh) = @_;
41 closedir($dh);
45 @_ == 2 or croak 'usage: $dh->open(DIRNAME)';
46 my ($dh, $dirname) = @_;
48 unless opendir($dh, $dirname);
52 ${*$dh}{io_dir_path} = $dirname;
57 @_ == 1 or croak 'usage: $dh->close()';
58 my ($dh) = @_;
59 closedir($dh);
63 @_ == 1 or croak 'usage: $dh->read()';
64 my ($dh) = @_;
65 readdir($dh);
69 @_ == 2 or croak 'usage: $dh->seek(POS)';
70 my ($dh,$pos) = @_;
71 seekdir($dh,$pos);
75 @_ == 1 or croak 'usage: $dh->tell()';
76 my ($dh) = @_;
77 telldir($dh);
81 @_ == 1 or croak 'usage: $dh->rewind()';
82 my ($dh) = @_;
83 rewinddir($dh);
89 my $dh = $class->new($dir)
94 ${*$dh}{io_dir_unlink} = $options & DIR_UNLINK;
95 $dh;
99 my($dh) = @_;
100 $dh->rewind;
101 scalar $dh->read;
105 my($dh) = @_;
106 scalar $dh->read;
110 my($dh,$key) = @_;
111 -e File::Spec->catfile(${*$dh}{io_dir_path}, $key);
115 my($dh,$key) = @_;
116 &lstat(File::Spec->catfile(${*$dh}{io_dir_path}, $key));
120 my($dh,$key,$data) = @_;
122 my $file = File::Spec->catfile(${*$dh}{io_dir_path}, $key);
131 my($dh,$key) = @_;
135 unless ${*$dh}{io_dir_unlink};
137 my $file = File::Spec->catfile(${*$dh}{io_dir_path}, $key);