File Coverage

blib/lib/SWIFT/Factory/ApplicationHeader.pm

Criterion	Covered	Total	%
statement	29	45	64.4
branch	0	2	0.0
condition	0	3	0.0
subroutine	10	14	71.4
pod	3	3	100.0
total	42	67	62.6

package SWIFT::Factory::ApplicationHeader;
use strict;
use warnings;

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

use constant MSG_PRIORITY_SYSTEM=>'S';
use constant MSG_PRIORITY_URGENT=>'U';
use constant MSG_PRIORITY_NORMAL=>'N';

use constant MONITORING_NON_DELIVERY=>1;
use constant MONITORING_DELIVERY_NOTIFICATION=>2;
use constant MONITORING_DELIVERY_BOTH=>3;

BEGIN{
   *provide=*string;
   *borken=*invalid;
}

###########################################################################################################
# The Application Header is block number 2 of a SWIFT message.
# This block is not required in all SWIFT messages.
#
# The block is normally built for "input", which in SWIFT
# speak means "input to the SWIFT network".
#
# This module will implement an "Input Application Header".
###########################################################################################################

###########################################################################################################
# Class private stuff.
my$io_id_input=sub{'I'};
###########################################################################################################

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

###########################################################################################################
# The class cannot guarantee that the provided string will be valid in the SWIFT network.
# It can point out that it's found some invalid data, though.
# Return number of problems detected.
sub invalid {
   my$self=shift;

   # Implement verifications here!
   0;
}

###########################################################################################################
sub string {
   my$self=shift;

   '{2:'.
   $self->$io_id_input().
   sprintf("%03u",$self->{MSG_TYPE}).
   $self->{BIC}.
   $self->{TERMINAL}.
   $self->{BRANCH_CODE}.
   $self->{MSG_PRIORITY}.
   $self->{DELIVERY_MONITORING}.
   (defined($self->{OBSOLESCENCE_PERIOD})&&length($self->{OBSOLESCENCE_PERIOD})?sprintf("%03u",$self->{OBSOLESCENCE_PERIOD}):'').
   '}';
}

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

###########################################################################################################
sub _init {
   my$self=shift;
   my%args=(
      MESSAGE_TYPE=>0,
      BIC=>'X'x8,             # Receiver BIC for SWIFT input msg.
      TERMINAL=>'X',          # Receiver Terminal for SWIFT input msg.
      BRANCH_CODE=>'X'x3,     # Receiver Branch code for SWIFT input msg.
      MESSAGE_PRIORITY=>MSG_PRIORITY_NORMAL,
      DELIVERY_MONITORING=>'',
      OBSOLESCENCE_PERIOD=>'',
      @_
   );

   $self->{MSG_TYPE}=$args{MESSAGE_TYPE};
   $self->{BIC}=$args{BIC};
   $self->{TERMINAL}=$args{TERMINAL};
   $self->{BRANCH_CODE}=$args{BRANCH_CODE};
   $self->{MSG_PRIORITY}=$args{MESSAGE_PRIORITY};
   $self->{DELIVERY_MONITORING}=$args{DELIVERY_MONITORING};
   $self->{OBSOLESCENCE_PERIOD}=$args{OBSOLESCENCE_PERIOD};

   $self;
}

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