File Coverage

blib/lib/Protocol/FIX/Component.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Protocol::FIX::Component;
2              
3 11     11   79 use strict;
  11         34  
  11         371  
4 11     11   62 use warnings;
  11         31  
  11         303  
5              
6 11     11   55 use Protocol::FIX;
  11         24  
  11         244  
7 11     11   58 use mro;
  11         22  
  11         91  
8 11     11   280 use parent qw/Protocol::FIX::BaseComposite/;
  11         33  
  11         60  
9              
10             our $VERSION = '0.08'; ## VERSION
11              
12             =head1 NAME
13              
14             Protocol::FIX::Component - aggregates fields, groups, components under single name
15              
16             =cut
17              
18             =head1 METHODS (for protocol developers)
19              
20             =head3 new
21              
22             new($class, $name, $composites)
23              
24             Creates new Component (performed by Protocol, when it parses XML definition)
25              
26             =cut
27              
28             sub new {
29 734     734 1 1392 my ($class, $name, $composites) = @_;
30              
31 734         1739 my $obj = next::method($class, $name, 'component', $composites);
32              
33 734         1516 return $obj;
34             }
35              
36             1;