package ftpcp::filehandle;
use strict;
use warnings;

use Socket;
use Net::FTP;
our @ISA=qw/IO::Socket::INET/;

=head1 NAME

ftpcp::filehandle

=head1 DESCRIPTION

A wrapper for IO::Socket::INET filehandles to make sure the FTP response is actually picked up.

=head1 CLASS METHODS

=head2 new(...)

As IO::Socket::INET but with the argument "ftp", which is a Net::FTP object.

=cut

sub new {
  my ($class, %args) = @_;
  my ($self) = IO::Socket::INET::new($class, %args);
  $self->ftp($args{ftp});
}

=head1 INSTANCE METHODS

=head2 close()

As normal.

=cut

sub close {
  my ($self) = @_;
  $self->SUPER::close();
  my $ftp = ${*$self}{ftp};
  my $parent = ${*$self}{parent};
  $parent->close() if $parent;
  my $response = $ftp->response();

  $response == Net::FTP::CMD_OK;
}

=head2 ftp($ftp)

Sets the Net::FTP object to use.

=cut

sub ftp {
  my ($self, $ftp) = @_;
  ${*$self}{ftp} = $ftp;
}

=head2 parent($parent)

Sets the IO::Socket::INET connection (to shut down on complete).

=cut

sub parent {
  my ($self, $parent) = @_;
  ${*$self}{parent} = $parent;
}

1;