File Coverage

blib/lib/Email/MIME/RFC2047/Group.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	6	10	60.0
condition	2	6	33.3
subroutine	9	9	100.0
pod	4	4	100.0
total	59	67	88.0

package Email::MIME::RFC2047::Group;
$Email::MIME::RFC2047::Group::VERSION = '0.95';
use strict;
use warnings;

# ABSTRACT: Handling of MIME encoded mailbox groups

use base qw(Email::MIME::RFC2047::Address);

use Email::MIME::RFC2047::Decoder;
use Email::MIME::RFC2047::MailboxList;

sub new {
    my $class = shift;

    my $self;

    if (@_ >= 2) {
        $self = { @_ };
    }
    else {
        $self = $_[0];
    }

    return bless($self, $class);
}

#sub _parse {
#    my ($class, $string, $decoder) = @_;
#    my $string_ref = ref($string) ? $string : \$string;
#
#    $decoder ||= Email::MIME::RFC2047::Decoder->new();
#
#    my $name = $decoder->decode_phrase($string_ref);
#    return $class->_parse_error($string_ref, 'group name')
#        if $name eq '';
#
#    $$string_ref =~ /\G:/cg
#        or return $class->_parse_error($string_ref, 'group');
#
#    my $mailbox_list;
#
#    if ($$string_ref =~ /\G\s*;\s*/cg) {
#        $mailbox_list = Email::MIME::RFC2047::MailboxList->new();
#    }
#    else {
#        $mailbox_list = Email::MIME::RFC2047::MailboxList->parse(
#            $string_ref, $decoder
#        );
#
#        $$string_ref =~ /\G;\s*/cg
#            or return $class->_parse_error($string_ref, 'group');
#    }
#
#    my $group = $class->new(
#        name         => $name,
#        mailbox_list => $mailbox_list,
#    );
#
#    if (!ref($string) && pos($string) < length($string)) {
#        return $class->_parse_error($string_ref);
#    }
#
#    return $group;
#}

sub name {
    my $self = shift;

    my $old_name = $self->{name};
    $self->{name} = $_[0] if @_;

    return $old_name;
}

sub mailbox_list {
    my $self = shift;

    my $old_mailbox_list = $self->{mailbox_list};
    $self->{mailbox_list} = $_[0] if @_;

    return $old_mailbox_list;
}

sub format {
    my ($self, $encoder) = @_;
    $encoder ||= Email::MIME::RFC2047::Encoder->new();

    my $name = $self->{name};
    die("empty group name") if !defined($name) || $name eq '';

    my $result = $encoder->encode_phrase($name) . ': ';

    my $mailbox_list = $self->{mailbox_list};
    $result .= $mailbox_list->format($encoder) if $mailbox_list;

    $result .= ';';

    return $result;
}

1;

__END__