File Coverage

blib/lib/AnyEvent/FTP/Server/Role/Old.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	0	6	0.0
total	33	39	84.6

package AnyEvent::FTP::Server::Role::Old;

use strict;
use warnings;
use 5.010;
use Moo::Role;

# ABSTRACT: Role for old archaic FTP server commands
our $VERSION = '0.17'; # VERSION


has syst => (
  is      => 'rw',
  lazy    => 1,
  default => sub { 'UNIX Type: L8' }
);


sub help_allo { 'ALLO is not implemented (ignored)' }

sub cmd_allo
{
  my($self, $con, $req) = @_;
  $con->send_response(202 => 'No storage allocation necessary');
  $self->done;
}


sub help_noop { 'NOOP' }

sub cmd_noop
{
  my($self, $con, $req) = @_;
  $con->send_response(200 => 'NOOP command successful');
  $self->done;
}


sub help_syst { 'SYST' }

sub cmd_syst
{
  my($self, $con, $req) = @_;
  $con->send_response(215 => $self->syst);
  $self->done;
}

1;

__END__