File Coverage

blib/lib/SWIFT/Factory/Tag/Tag17.pm

Criterion	Covered	Total	%
statement	19	27	70.3
branch	0	2	0.0
condition	0	3	0.0
subroutine	7	10	70.0
pod	2	2	100.0
total	28	44	63.6

package SWIFT::Factory::Tag::Tag17;
use strict;
use warnings;

use vars qw($VERSION);
$VERSION='0.01';

# Three potentially (and typically) overridden class methods.
use constant TAG_ID=>'';
use constant INDICATOR_TRUE=>'Y';
use constant INDICATOR_FALSE=>'N';

BEGIN{
   *provide=*string;
}

###########################################################################################################
# Constructor. Rarely overridden.
sub new {
   my$self={};
   bless($self,shift())->_init(@_);
}

###########################################################################################################
# Object method, potentially (but rarely) overridden.
# In normal cases, a subclass would override TAG_ID, INDICATOR_FALSE and INDICATOR_TRUE to achieve
# a specialized behaviour.
sub string {
   my$self=shift;
   ':17'.
   $self->TAG_ID.
   ':'.
   $self->{INDICATOR}.
   chr(13). # CR
   chr(10); # LF
}

###########################################################################################################
###########################################################################################################
#
# 'Internal' subs. Don't call these since they may, and will, change without notice.
#
###########################################################################################################
###########################################################################################################

###########################################################################################################
sub _init {
   my$self=shift();
   my%args=(
      INDICATOR=>'',
      @_);

   $self->{INDICATOR}=(defined($args{INDICATOR})&&$args{INDICATOR}?$self->INDICATOR_TRUE:$self->INDICATOR_FALSE);
   $self;
}

###########################################################################################################
'Choppers rule';
__END__