File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

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

use Carp;
use MIME::Base64;

use Moose;
use Moose::Util::TypeConstraints;
use Data::Validate::URI qw(is_web_uri);

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

has name => ( is => 'rw', default => 'PHOTO', isa => 'Str', required => 1 );

subtype 'Images' => as 'Str' => where {
    is_web_uri($_)
        or s/\s//g || 1 and    #force remove spaces and returns
        m!^([A-Za-z0-9+/]{4})*(?:[A-Za-z0-9+/]{4}|[A-Za-z0-9+/]{3}=|[A-Za-z0-9+/]{2}==)$!
} => message {"The Unvalid value you provided, $_, was not supported in 'Images'"};
coerce 'Images' => from 'Str' =>
    via { is_web_uri($_) && return $_->as_string() or encode_base64( $_, "" ) };
has content => ( is => 'rw', isa => 'Images', required => 1, coerce => 1 );

subtype 'Media_type' => as 'Str' => where {m|^image/(?:X-)?[a-zA-z0-9\-]+$|is}
=> message {"The Text you provided, $_, was not supported in 'Media_type'"};
has media_type => ( is => 'rw', isa => 'Media_type' );

override 'as_string' => sub {
    my ($self) = @_;
    my @lines;
    push @lines, $self->name() || croak "Empty name";
    push @lines, "TYPE=" . $self->media_type() if defined $self->media_type();
    push @lines, "ENCODING=b" unless is_web_uri( $self->content() );

    my $string = join( ';', @lines ) . ':' . $self->content();
    return $self->fold( $string, -force => 1 );
};

__PACKAGE__->meta->make_immutable;
no Moose;

1;