File Coverage

blib/lib/AnyEvent/FTP/Server/UnambiguousResponseEncoder.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	31	31	100.0

package AnyEvent::FTP::Server::UnambiguousResponseEncoder;

use strict;
use warnings;
use 5.010;
use Moo;

# ABSTRACT: Server response encoder that encodes responses so they cannot be confused
our $VERSION = '0.18'; # VERSION


with 'AnyEvent::FTP::Server::Role::ResponseEncoder';


sub encode
{
  my $self = shift;

  my $code;
  my $message;

  if(ref $_[0])
  {
    $code = $_[0]->code;
    $message = $_[0]->message;
  }
  else
  {
    ($code, $message) = @_;
  }

  $message = [ $message ] unless ref($message) eq 'ARRAY';

  my $last = pop @$message;

  return join "\015\012", (map { "$code-$_" } @$message), "$code $last\015\012";
}

1;

__END__