File Coverage

blib/lib/Mojo/SMTP/Client/Response.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	8	8	100.0
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	50	50	100.0

package Mojo::SMTP::Client::Response;

use Mojo::Base -base;
use overload '""' => \&to_string, fallback => 1;

use constant CRLF => "\x0d\x0a";

has 'error';

sub new {
	my $class = shift;
	my $resp  = shift;

	my $self = $class->SUPER::new(@_);
	$self->{resp} = $resp;
	$self;
}

sub code {
	my $self = shift;
	unless ($self->{code}) {
		$self->_parse_response();
	}

	$self->{code};
}

sub message {
	my $self = shift;
	unless ($self->{message}) {
		$self->_parse_response();
	}
}

sub to_string {
	$_[0]->{resp};
}

sub _parse_response {
	my $self = shift;

	my @lines = split CRLF, $self->{resp} or return;
	($self->{code}) = $lines[0] =~ /^(\d+)/;

	my @msg;

	for (@lines) {
		if (/^\d+[-\s](.+)/) {
			push @msg, $1;
		}
	}

	$self->{message} = join CRLF, @msg;
}

1;

__END__