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   92 use strict;
  11         24  
  11         416  
4 11     11   62 use warnings;
  11         25  
  11         355  
5              
6 11     11   66 use Protocol::FIX;
  11         20  
  11         325  
7 11     11   59 use mro;
  11         26  
  11         101  
8 11     11   390 use parent qw/Protocol::FIX::BaseComposite/;
  11         23  
  11         104  
9              
10             our $VERSION = '0.06'; ## 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 1472 my ($class, $name, $composites) = @_;
30              
31 734         1834 my $obj = next::method($class, $name, 'component', $composites);
32              
33 734         1560 return $obj;
34             }
35              
36             1;