To Do

When delegating a method to Net::FTP [e.g. rename()], it would be

nice to first login and cd and then call $self->SUPER::rename() with the appropriate arguments. Conway's Class::Delegation

package Net::FTP::Common;
use Class::Delegation
    send => 'rename',  to => 'net_ftp',
    send => 'delete',  to => 'net_ftp';

$self->{net_ftp} = sub {
   my $self = shift;
   my $method = shift; # rename in this case;
   my @arg = @_;
   $self->prep; # login, cd, [ binary, ascii ]
   $self->SUPER::$method(@arg);
}

Allowed for typed file listings via File::Listing

$ftp = Company::FTP::handle_for 'usc';
@dirs = grep { $_->{type} = 'd' } $ftp->typed_list;