File Coverage

blib/lib/Lib/Pepper/Exception.pm

Criterion	Covered	Total	%
statement	35	62	56.4
branch	0	6	0.0
condition	0	12	0.0
subroutine	12	16	75.0
pod	4	4	100.0
total	51	100	51.0

package Lib::Pepper::Exception;
#---AUTOPRAGMASTART---
use v5.42;
use strict;
use diagnostics;
use mro 'c3';
use English;
use Carp qw[carp croak confess cluck longmess shortmess];
our $VERSION = 0.5;
use autodie qw( close );
use Array::Contains;
use utf8;
use Data::Dumper;
use Data::Printer;
#---AUTOPRAGMAEND---


use Lib::Pepper::Constants qw(:errors);

# Error code to message mapping
my %ERROR_MESSAGES = (
    # Success
    0 => 'Success',

    # Generic failures
    -1 => 'Generic failure',
    -2 => 'Invalid value provided',
    -3 => 'Invalid state',
    -4 => 'Functionality not licensed',
    -5 => 'Out of memory',

    # Library initialization errors
    -100 => 'Library initialization failed',
    -101 => 'Library already initialized',
    -102 => 'Library loading error',
    -103 => 'Library not initialized',
    -104 => 'Library version mismatch',
    -105 => 'Library dependency error',
    -106 => 'Library still in use',

    # Configuration errors
    -200 => 'Configuration error',
    -201 => 'Invalid configuration',
    -202 => 'Missing configuration file',
    -203 => 'Configuration file invalid',
    -204 => 'Configuration incomplete',

    # Logging errors
    -300 => 'Logging error',
    -301 => 'Logging initialization failed',
    -302 => 'Logging file creation failed',
    -303 => 'Logging file write failed',

    # Persistence errors
    -400 => 'Persistence error',
    -401 => 'Database error',
    -402 => 'File error',
    -403 => 'Data corrupt',
    -404 => 'No data found',
    -405 => 'Invalid data',

    # Core errors
    -500 => 'Core error',
    -501 => 'Core initialization failed',
    -502 => 'Core operation failed',

    # License errors
    -700 => 'License error',
    -701 => 'Invalid license',
    -702 => 'License expired',
    -703 => 'License not found',
    -704 => 'License download failed',
    -705 => 'License verification failed',
    -706 => 'Feature not licensed',
    -707 => 'Terminal not licensed',
    -708 => 'License limit exceeded',

    # Handle errors
    -1_000 => 'Invalid handle',
    -1_001 => 'Null handle',
    -1_002 => 'Handle not found',
    -1_003 => 'Handle type mismatch',
    -1_004 => 'Handle creation failed',

    # Option list errors
    -1_100 => 'Option list error',
    -1_101 => 'Option element not found',
    -1_102 => 'Option type mismatch',
    -1_103 => 'Invalid option key',
    -1_104 => 'Option list empty',
    -1_105 => 'Duplicate option key',
    -1_106 => 'Option list operation failed',

    # Instance errors
    -1_200 => 'Instance error',
    -1_201 => 'Instance creation failed',
    -1_202 => 'Instance not configured',
    -1_203 => 'Instance invalid state',
    -1_204 => 'Operation pending',
    -1_205 => 'Instance not open',
    -1_206 => 'Instance already open',
    -1_207 => 'Instance configuration error',
    -1_208 => 'Instance callback error',

    # State machine errors
    -1_300 => 'State machine error',
    -1_301 => 'Invalid state transition',
    -1_302 => 'Operation not allowed',
    -1_303 => 'State machine timeout',
    -1_304 => 'Operation aborted',

    # Card type errors
    -1_400 => 'Card type error',
    -1_401 => 'Card type not found',
    -1_402 => 'Card type configuration error',

    # Communication errors
    -1_500 => 'Communication error',
    -1_501 => 'Connection failed',
    -1_502 => 'Disconnected',
    -1_503 => 'Communication timeout',
    -1_504 => 'Send error',
    -1_505 => 'Receive error',
    -1_506 => 'Protocol error',
    -1_507 => 'Invalid response',
    -1_508 => 'Terminal busy',
    -1_509 => 'Terminal error',
);

sub checkResult($self, $result, $context) {
    if(!defined $result) {
        croak("Undefined result code in context: $context");
    }

    if($result >= PEP_FUNCTION_RESULT_SUCCESS) {
        return 1;
    }

    my $message = $ERROR_MESSAGES{$result} || "Unknown error code: $result";
    my $fullMessage = $context ? "$context: $message (code: $result)" : "$message (code: $result)";

    croak($fullMessage);
}

sub getErrorMessage($self, $result) {
    return $ERROR_MESSAGES{$result} || "Unknown error code: $result";
}

sub isSuccess($self, $result) {
    return defined($result) && $result >= PEP_FUNCTION_RESULT_SUCCESS;
}

sub isFailure($self, $result) {
    return !defined($result) || $result < PEP_FUNCTION_RESULT_SUCCESS;
}

1;

__END__