Lines Matching refs:self
73 my $self = shift ;
82 bless [ @files ], $self ;
87 my $self = shift ;
88 chmod 0777, @{ $self } ;
89 for (@$self) { 1 while unlink $_ } ;
108 my $self = shift ;
115 return bless [ $dir ], $self ;
120 my $self = shift ;
121 my $dir = $self->[0];
151 my $self = shift ;
152 close $self->[0] ;
153 select($self->[1]) ;