File Coverage

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

Criterion	Covered	Total	%
statement	17	29	58.6
branch	0	4	0.0
condition			n/a
subroutine	6	10	60.0
pod	3	3	100.0
total	26	46	56.5

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

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

# Two potentially overridden class methods.
use constant TAG_ID=>'';
use constant FIGURES_IN_YEAR=>2;

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

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

###########################################################################################################
# Object method, potentially overridden.
# The class cannot guarantee that the TAG 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;
}

###########################################################################################################
# Object method, potentially overridden.
sub string {
   my$self=shift;
   ':30'.
   $self->TAG_ID.
   ':'.
   sprintf("%0".$self->FIGURES_IN_YEAR."u",$self->{YEAR}).
   sprintf("%02u",$self->{MONTH}).
   sprintf("%02u",$self->{DAY}).
   chr(13). # CR
   chr(10); # LF
}

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

###########################################################################################################
# Object method, potentially overridden.
sub _init {
   my$self=shift();
   my%args=(
      YEAR=>0,
      MONTH=>0,
      DAY=>0,
      DO_CLEANUP=>0,
      @_);

   $self->{YEAR}=($args{DO_CLEANUP}?
                  (length($args{YEAR})>$self->FIGURES_IN_YEAR?
                     substr($args{YEAR},
                            length($args{YEAR})-$self->FIGURES_IN_YEAR,
                            $self->FIGURES_IN_YEAR):
                     $args{YEAR}):
                     $args{YEAR});
   $self->{MONTH}=$args{MONTH};
   $self->{DAY}=$args{DAY};
   $self;
}

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