File Coverage

blib/lib/Net/FSP/File.pm

Criterion	Covered	Total	%
statement	12	32	37.5
branch	0	4	0.0
condition	0	2	0.0
subroutine	4	10	40.0
pod	6	6	100.0
total	22	54	40.7

package Net::FSP::File;

use strict;
use warnings;
use Net::FSP::Entry;
use base 'Net::FSP::Entry';
our $VERSION = $Net::FSP::VERSION;

sub download {
	my ($self, $sink) = @_;
	$sink = $self->{name} if not defined $sink;
	$self->{fsp}->download_file($self->{name}, $sink);
	return;
}

sub grab {
	my ($self, $sink) = @_;
	$sink = $self->{name} if not defined $sink;
	$self->{fsp}->grab_file($self->{name}, $sink);
	return;
}

sub upload {
	my ($self, $source) = @_;
	$self->{fsp}->grab_file($self->{name}, $source);
	return;
}

sub remove {
	my ($self) = @_;
	$self->{fsp}->delete_file($self->{name});
	return;
}

sub accept {
	my ($self, $visitor) = @_;
	$visitor->($self);
	return;
}

sub open {
	my ($self, $mode) = @_;
	$mode ||= '<';
	return $self->{fsp}->open_file($self->name, $mode);
}

1;

__END__