Lines Matching refs:self
456 my ($self, $attr) = @_;
471 my $self = bless {}, $class;
472 foreach my $attrname ($self->_standard_keys()) {
475 $self->{$attrname} = $args{$argname};
477 $self->{$attrname} = $caller->{$attrname};
479 $self->{$attrname} = $self->_default_for($attrname);
484 $self->{_server_sock}
485 = IO::Socket::INET->new (LocalHost => $self->{_localAddr},
486 LocalPort => $self->{_localPort},
488 Reuse => $self->{_reuseAddr},
492 return $self;
498 my ($self, $synch_callback) = @_;
520 my $server_sock = $self->{_server_sock};
566 'paths' => FTPPaths->new($self->{'_input'},
567 $self->{'_server_behavior'}),
573 'rootdir' => $self->{_rootDir},
623 if (defined ($self->{_server_behavior}{fail_on_pasv})
625 undef $self->{_server_behavior}{fail_on_pasv};
642 my $self = shift;
643 return $self->{_server_sock}->sockport;
690 my $self = {};
691 bless $self, $class;
692 $self->initialize(@args);
693 return $self;
697 my ($self, $urls, $behavior) = @_;
717 $self->{'_paths'} = $paths;
718 $self->{'_behavior'} = $behavior;
722 my ($self, $path, $node) = @_;
723 $node = $self->{'_paths'} unless $node;
738 my ($self, $path) = @_;
739 return $self->exists($path, 'd');
744 my ($self, $path, $type) = @_;
745 my $paths = $self->{'_paths'};
748 my $info = $self->get_info($path);
755 my ($self, $name, $info) = @_;
768 if ($self->{'_behavior'}{'bad_list'}) {
777 my ($self, $path) = @_;
778 my $info = $self->get_info($path);
785 push @$list, $self->_format_for_list($item, $info->{$item});
788 push @$list, $self->_format_for_list(final_component($path), $info);