File Coverage

blib/lib/AnyEvent/FTP/Client/Response.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch	4	6	66.6
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	31	35	88.5

package AnyEvent::FTP::Client::Response;

use strict;
use warnings;
use 5.010;
use base qw( AnyEvent::FTP::Response );

# ABSTRACT: Response class for asynchronous ftp client
our $VERSION = '0.19'; # VERSION


sub get_address_and_port
{
  return ("$1.$2.$3.$4", $5*256+$6) if shift->{message}->[0] =~ /\((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)/;
  return;
}


sub get_dir
{
  if(shift->{message}->[0] =~ /^"(.*)"/)
  {
    my $dir = $1;
    $dir =~ s/""/"/;
    return $dir;
  }
  return;
}


sub get_file
{
  return shift->{message}->[0] =~ /^FILE: (.*)/i ? $1 : ();
}

1;

__END__