File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	0	2	0.0
total	32	34	94.1

package AnyEvent::FTP::Server::Role::Type;

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

# ABSTRACT: Type role for FTP server
our $VERSION = '0.20'; # VERSION


has type => (
  is      => 'rw',
  default => sub { 'A' },
);


sub help_type { 'TYPE  type-code (A, I)' }

sub cmd_type
{
  my($self, $con, $req) = @_;

  my $type = uc $req->args;
  $type =~ s/^\s+//;
  $type =~ s/\s+$//;

  if($type eq 'A' || $type eq 'I')
  {
    $self->type($type);
    $con->send_response(200 => "Type set to $type");
  }
  else
  {
    $con->send_response(500 => "Type not understood");
  }

  $self->done;
}

# TODO: STRU MODE

1;

__END__