gistfile1.pl

sub _default_infx_format {
    my ( $self ) = @_;
    return {
        sfArriveCode    => {
            col => 10,  len => 3
        },
        sfDepartCodeRet => {
            col => 13,  len => 3,
            mod => sub { return $self->_get_return_code('dep', @_) }
        },
        sfArriveCodeRet => {
            col => 16,  len => 3,
            mod => sub { return $self->_get_return_code('arr', @_) }
        },
        sfDepartDate    => {
            col => 24,  len => 10,
            mod => sub { return $self->_truncate_year(@_) }
        },
    };
}