line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package XML::NewsML_G2::News_Item_Text; |
2
|
|
|
|
|
|
|
|
3
|
18
|
|
|
18
|
|
83093
|
use Moose; |
|
18
|
|
|
|
|
379019
|
|
|
18
|
|
|
|
|
152
|
|
4
|
18
|
|
|
18
|
|
118012
|
use namespace::autoclean; |
|
18
|
|
|
|
|
7830
|
|
|
18
|
|
|
|
|
166
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
extends 'XML::NewsML_G2::News_Item'; |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
has '+nature', default => 'text'; |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
__PACKAGE__->meta->make_immutable; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
1; |
13
|
|
|
|
|
|
|
__END__ |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
=head1 NAME |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
XML::NewsML_G2::News_Item_Text - a text news item (story) |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
=for test_synopsis |
20
|
|
|
|
|
|
|
my ($provider, $service, $genre1, $genre2); |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
=head1 SYNOPSIS |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
my $ni = XML::NewsML_G2::News_Item_Text->new |
25
|
|
|
|
|
|
|
(guid => "tag:example.com,2013:service:date:number", |
26
|
|
|
|
|
|
|
title => "Story title", |
27
|
|
|
|
|
|
|
slugline => "the/slugline", |
28
|
|
|
|
|
|
|
language => 'de', |
29
|
|
|
|
|
|
|
provider => $provider, |
30
|
|
|
|
|
|
|
service => $service, |
31
|
|
|
|
|
|
|
); |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
$ni->add_genre($genre1, $genre2); |
34
|
|
|
|
|
|
|
$ni->add_source('APA'); |
35
|
|
|
|
|
|
|
$ni->add_paragraph('blah blah blah'); |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
=head1 ATTRIBUTES |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
For a list of attributes, please see L<XML::NewsML_G2::News_Item>. |
40
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
=head1 AUTHOR |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
Philipp Gortan C<< <philipp.gortan@apa.at> >> |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
=head1 LICENCE AND COPYRIGHT |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
Copyright (c) 2013, APA-IT. All rights reserved. |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
See L<XML::NewsML_G2> for the license. |