File Coverage

blib/lib/XML/NewsML_G2/Types.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package XML::NewsML_G2::Types;

use Moose::Util::TypeConstraints;
use Module::Runtime 'use_module';

use namespace::autoclean;
use warnings;
use strict;

enum 'XML::NewsML_G2::Types::Nature',
    [qw(text picture graphics audio video composite concept)];

enum 'XML::NewsML_G2::Types::Group_Mode', [qw(bag sequential alternative)];

class_type 'XML::NewsML_G2::Link';
coerce 'XML::NewsML_G2::Link', from 'Str',
    via { use_module('XML::NewsML_G2::Link')->new( residref => $_ ) };

class_type 'XML::NewsML_G2::Destination';
coerce 'XML::NewsML_G2::Destination', from 'Str',
    via { use_module('XML::NewsML_G2::Destination')->new( name => $_ ) };

subtype 'XML::NewsML_G2::ArrayRefOfLinks',
    as 'ArrayRef[XML::NewsML_G2::Link]';
coerce 'XML::NewsML_G2::ArrayRefOfLinks', from 'ArrayRef[HashRef]', via {
    [ map { XML::NewsML_G2::Link->new($_) } @$_ ]
};

class_type 'XML::NewsML_G2::Creator';
coerce 'XML::NewsML_G2::Creator', from 'Str',
    via { use_module('XML::NewsML_G2::Creator')->new( name => $_ ) };
subtype 'XML::NewsML_G2::ArrayRefOfCreators',
    as 'ArrayRef[XML::NewsML_G2::Creator]';
coerce 'XML::NewsML_G2::ArrayRefOfCreators', from 'ArrayRef[Str]', via {
    [ map { XML::NewsML_G2::Creator->new( name => $_ ) } @$_ ]
};

class_type 'XML::NewsML_G2::Translatable_Text';
coerce 'XML::NewsML_G2::Translatable_Text', from 'Str',
    via { use_module('XML::NewsML_G2::Translatable_Text')->new( text => $_ ) };

1;
__END__

=head1 NAME

XML::NewsML_G2::Types - various Moose attribute types used by NewsML_G2 classes

=head1 AUTHOR

Christian Eder  C<< <[e-mail]> >>

=head1 LICENCE AND COPYRIGHT

Copyright (c) 2013, APA-IT. All rights reserved.

See L<XML::NewsML_G2> for the license.