File Coverage

blib/lib/XML/NewsML_G2/Role/Writer.pm
Criterion Covered Total %
statement 10 10 100.0
branch 3 4 75.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 16 17 94.1


line stmt bran cond sub pod time code
1             package XML::NewsML_G2::Role::Writer;
2              
3 15     15   8498 use Moose::Role;
  15         38  
  15         96  
4 15     15   72229 use namespace::autoclean;
  15         36  
  15         99  
5              
6             sub _create_remote_content {
7 56     56   1169 my ( $self, $root, $remote ) = @_;
8              
9 56 50       1714 $root->setAttribute( 'contenttype', $remote->mimetype )
10             if ( $remote->mimetype );
11              
12 56 100       2055 $root->setAttribute( 'size', $remote->size )
13             if ( defined $remote->size );
14              
15 56         255 return;
16             }
17              
18             1;
19             __END__
20              
21             =head1 NAME
22              
23             XML::NewsML_G2::Role::Writer - Base role for NewsML-G2 writer classes
24              
25             =head1 DESCRIPTION
26              
27             This module serves as a base role for all NewsML-G2 writer classes it
28             defined the required functions that need to be provided by the
29             specific writer roles for each news item type
30              
31             =head1 AUTHOR
32              
33             Christian Eder C<< <christian.eder@apa.at> >>
34              
35             =head1 LICENCE AND COPYRIGHT
36              
37             Copyright (c) 2014, APA-IT. All rights reserved.
38              
39             See L<XML::NewsML_G2> for the license.