File Coverage

blib/lib/Net/uFTP.pm

Criterion	Covered	Total	%
statement	18	40	45.0
branch	0	10	0.0
condition	0	2	0.0
subroutine	6	10	60.0
pod	3	3	100.0
total	27	65	41.5

package Net::uFTP;

use vars qw($VERSION);

$VERSION = 0.161;
#--------------

use warnings;
use strict;
use Carp;
use UNIVERSAL::require;
use base qw(Class::Accessor::Fast::XS);
#----------------------------------------------------------------------
__PACKAGE__->mk_accessors(qw(object host type user password debug port));
#======================================================================
sub new {
	my ($self, $host, %params) = (shift, shift, @_);

	$params{host} = $host;
	$self = bless \%params, $self;

	# little standarization :-)
	$self->type($self->type() or 'Net::uFTP::FTP');
	my $type = $self->type() =~ /^Net::uFTP/o ? $self->type() : 'Net::uFTP::'.$self->type();
	$type =~ s/SCP$/SFTP/;

	$type->require or return;
	$self->type($type);

	return $self;
}
#======================================================================
sub get {
    my $self = shift;
    return $self->object()->get(@_);
}
#======================================================================
sub login {
	my ($self, $user, $passwd) = @_;

	my $type = $self->type();
	$self->object($type->new($self->host, port => $self->port, user => $user, password => $passwd, debug => $self->debug));
	return 1 if $self->object;
	return;
}
#======================================================================
sub AUTOLOAD {
	our $AUTOLOAD;
	my ($method) = $AUTOLOAD =~ /::([^:]+)$/o;

	return if $method eq 'DESTROY';

	my $self = shift;
	croak(qq/Unsupported method "$method"/) unless $self->object()->can($method);

	return $self->object()->$method(@_);
}
#======================================================================
1;

__END__