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         36  
  11         344  
4 11     11   65 use warnings;
  11         27  
  11         313  
5              
6 11     11   63 use Protocol::FIX;
  11         25  
  11         240  
7 11     11   57 use mro;
  11         22  
  11         98  
8 11     11   300 use parent qw/Protocol::FIX::BaseComposite/;
  11         23  
  11         65  
9              
10             our $VERSION = '0.07'; ## 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 1414 my ($class, $name, $composites) = @_;
30              
31 734         1803 my $obj = next::method($class, $name, 'component', $composites);
32              
33 734         1468 return $obj;
34             }
35              
36             1;