File Coverage

blib/lib/SWIFT/Factory/Tag/Tag17U.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package SWIFT::Factory::Tag::Tag17U;
2 1     1   6694 use strict;
  1         2  
  1         41  
3 1     1   6 use warnings;
  1         1  
  1         36  
4              
5 1     1   5 use base qw/SWIFT::Factory::Tag::Tag17/;
  1         7  
  1         1014  
6              
7 1     1   552 use vars qw($VERSION);
  1         1  
  1         44  
8             $VERSION='0.01';
9              
10             # Override these class methods from the SUPER class.
11 1     1   5 use constant TAG_ID=>'U';
  1         1  
  1         49  
12              
13             ###########################################################################################################
14             'Choppers rule';
15             __END__