File Coverage

blib/lib/CBI/Wrapper.pm

Criterion	Covered	Total	%
statement	12	51	23.5
branch	0	12	0.0
condition	0	3	0.0
subroutine	4	15	26.6
pod	11	11	100.0
total	27	92	29.3

##############################################################################
#
#    Copyright (C) 2022 Res Binaria Di Paolo Capaldo ()
#    All Rights Reserved
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU Affero General Public License as published
#    by the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU Affero General Public License for more details.
#
#    You should have received a copy of the GNU Affero General Public License
#    along with this program.  If not, see .
#
##############################################################################

package CBI::Wrapper;

use warnings;
use strict;

our $VERSION = '0.02';

use CBI::Wrapper::RIBA;
use CBI::Wrapper::Flow;

sub new {
	my $class = shift;
	my $args  = shift;
	my $self  = {
		_header    => $args->{header},
		_disposals => $args->{disposals},
		_flow_CBI  => {},
	};

	bless $self, $class;

	return $self;
}

# Getters and Setters.

sub set_header {
	my ($self, $header) = @_;

	$self->{_header} = $header;
}

sub get_header {
	my ($self) = @_;

	return $self->{_header};
}

sub set_disposals {
	my ($self, $disposals) = @_;

	$self->{_disposals} = $disposals;
}

sub get_disposals {
	my ($self) = @_;

	return $self->{_disposals};
}

sub set_flow_CBI {
	my ($self, $flow_CBI) = @_;

	$self->{_flow_CBI} = $flow_CBI;
}

sub get_flow_CBI {
	my ($self) = @_;

	return $self->{_flow_CBI};
}

sub append_disposal {
	my ($self, $disposal) = @_;

	my $disposals = $self->get_disposals();
	push(@$disposals, $disposal);
	$self->set_disposals($disposals);
}

# Create a flow with header, disposals and footer.
sub create_flow {
	my ($self, $args) = @_;

	my $header    = defined $args->{header}    ? $args->{header}    : $self->get_header();
	my $disposals = defined $args->{disposals} ? $args->{disposals} : $self->get_disposals();

	return 0 unless (defined $header and defined $disposals);

	my $flow_type = defined $args->{flow_type} ? $args->{flow_type} : '';

	my $flow_CBI;

	if ($flow_type eq 'RICEVUTE_BANCARIE') {
		$flow_CBI = &CBI::Wrapper::RIBA::create_RIBA(
			{
				header    => $header,
				disposals => $disposals,
			}
		);
	}

	$self->set_flow_CBI($flow_CBI);

	return 1;
}

# Write CBI flow on file.
sub print {
	my ($self, $filename) = @_;

	return 0 unless defined $filename;

	my $flow_CBI = $self->get_flow_CBI();
	$flow_CBI->write_file($filename);
}

# Load CBI flow from file.
sub load {
	my ($self, $filename) = @_;

	my $flow_CBI = new CBI::Wrapper::Flow();

	$flow_CBI->read_file($filename);

	$self->set_flow_CBI($flow_CBI);
}

1;

__END__