File Coverage

blib/lib/Text/vCard/Precisely/V3/Node/MultiContent.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	1	0.0
total	26	29	89.6

package Text::vCard::Precisely::V3::Node::MultiContent;

use Carp;
use Moose;
use Moose::Util::TypeConstraints;

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

extends 'Text::vCard::Precisely::V3::Node';

has name => ( is => 'ro', default => 'ADR', isa => 'Str' );

subtype 'MultiContent' => as 'ArrayRef[Str]';
coerce 'MultiContent'  => from 'Str' => via { [$_] };
has content            => ( is => 'rw', required => 1, isa => 'MultiContent', coerce => 1 );

sub as_string {
    my ($self) = @_;
    my $string = ( $self->name() || croak "Empty name" ) . ':' . join ',', @{ $self->content() };
    return $self->fold($string);
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;