File Coverage

blib/lib/Net/IMAP/Client/MsgAddress.pm

Criterion	Covered	Total	%
statement	6	26	23.0
branch	0	4	0.0
condition			n/a
subroutine	2	10	20.0
pod	7	7	100.0
total	15	47	31.9

package Net::IMAP::Client::MsgAddress;

use Encode ();

sub new {
    my ($class, $struct) = @_;
    my $self = {
        name           => $struct->[0],
        at_domain_list => $struct->[1],
        mailbox        => $struct->[2],
        host           => $struct->[3],
    };
    bless $self, $class;
}

sub _decode {
    my ($str) = @_;
    if (defined($str)) {
        eval { $str = Encode::decode('MIME-Header', $str); };
    }
    return $str;
}

use overload q("") => \&as_string;

sub name { _decode($_[0]->{name}) }
sub at_domain_list { _decode($_[0]->{at_domain_list}) }
sub mailbox { _decode($_[0]->{mailbox}) }
sub host { _decode($_[0]->{host}) }

sub email {
    my ($self) = @_;
    return $self->mailbox . '@' . $self->host;
}

sub as_string {
    my ($self) = @_;
    my $str;
    if (($str = $self->name)) {
        $str .= ' <' . $self->email . '>';
    } else {
        $str = $self->email;
    }
    return $str;
}

1;

__END__