File Coverage

blib/lib/XML/NewsML_G2/Organisation.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package XML::NewsML_G2::Organisation;
2              
3 18     18   140 use Moose;
  18         40  
  18         137  
4 18     18   82751 use namespace::autoclean;
  18         44  
  18         162  
5              
6             with 'XML::NewsML_G2::Role::HasQCode';
7              
8             has 'isins',
9             isa => 'ArrayRef[Str]',
10             is => 'rw',
11             default => sub { [] },
12             traits => ['Array'],
13             handles => { add_isin => 'push' };
14             has 'websites',
15             isa => 'ArrayRef[Str]',
16             is => 'rw',
17             default => sub { [] },
18             traits => ['Array'],
19             handles => { add_website => 'push', has_websites => 'count' };
20             has 'indices',
21             isa => 'ArrayRef[Str]',
22             is => 'rw',
23             default => sub { [] },
24             traits => ['Array'],
25             handles => { add_index => 'push' };
26             has 'stock_exchanges',
27             isa => 'ArrayRef[Str]',
28             is => 'rw',
29             default => sub { [] },
30             traits => ['Array'],
31             handles => { add_stock_exchange => 'push' };
32              
33             __PACKAGE__->meta->make_immutable;
34              
35             1;
36             __END__
37              
38             =head1 NAME
39              
40             XML::NewsML_G2::Oranisation - a company or organisation
41              
42             =head1 SYNOPSIS
43              
44             my $org = XML::NewsML_G2::Organisation->new
45             (name => 'Google Inc.', qcode => 'gogl', websites => ["http://google.com"]);
46              
47             =head1 ATTRIBUTES
48              
49             =over 4
50              
51             =item isins
52              
53             List of international securities identification numbers.
54              
55             =item websites
56              
57             List of the websites
58              
59             =item indices
60              
61             List of stock indexes covering this organisation
62              
63             =item stock_exchanges
64              
65             List of stock exchanges where this organisation is listed
66              
67             =back
68              
69             =head2 METHODS
70              
71             =over 4
72              
73             =item add_isin
74              
75             =item add_website
76              
77             =item add_index
78              
79             =item add_stock_exchange
80              
81             =back
82              
83             =head1 AUTHOR
84              
85             Philipp Gortan C<< <philipp.gortan@apa.at> >>
86              
87             =head1 LICENCE AND COPYRIGHT
88              
89             Copyright (c) 2013-2014, APA-IT. All rights reserved.
90              
91             See L<XML::NewsML_G2> for the license.