File Coverage

blib/lib/Lib/Pepper.pm

Criterion	Covered	Total	%
statement	41	90	45.5
branch	0	16	0.0
condition	0	8	0.0
subroutine	14	19	73.6
pod	5	5	100.0
total	60	138	43.4

package Lib::Pepper;
#---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 File::Spec;
use File::Basename;

use parent 'Exporter';

our @EXPORT_OK = qw(
    pepInitialize
    pepFinalize
    pepVersion
    pepCreateInstance
    pepFreeInstance
    pepConfigureWithCallback
    pepPrepareOperation
    pepStartOperation
    pepExecuteOperation
    pepFinalizeOperation
    pepOperationStatus
    pepUtility
    pepAuxiliary
    pepDownloadLicense
    pepOptionListCreate
    pepOptionListGetStringElement
    pepOptionListGetIntElement
    pepOptionListGetChildOptionListElement
    pepOptionListAddStringElement
    pepOptionListAddIntElement
    pepOptionListAddChildOptionListElement
    pepOptionListGetElementList
    isValidHandle
    isSuccess
    isFailure
);

our %EXPORT_TAGS = (
    all => \@EXPORT_OK,
);

require XSLoader;
XSLoader::load('Lib::Pepper', $VERSION);

# Library initialization wrapper with better error handling
sub initialize($class, %params) {
    my $libPath = $params{library_path} || '';
    my $configXml = $params{config_xml};
    my $licenseXml = $params{license_xml};

    my ($result, $terminalTypeList) = pepInitialize($libPath, $configXml, $licenseXml);

    if($result < 0) {
        croak("Library initialization failed with code: $result");
    }

    return $terminalTypeList;
}

# Library finalization wrapper
sub finalize($class) {
    my $result = pepFinalize();

    if($result < 0) {
        croak("Library finalization failed with code: $result");
    }

    return 1;
}

# Get version information
sub version($class) {
    my ($result, $major, $minor, $service, $revision, $api, $osArch, $releaseType, $configType) = pepVersion();

    if($result < 0) {
        croak("Version query failed with code: $result");
    }

    return {
        major       => $major,
        minor       => $minor,
        service     => $service,
        revision    => $revision,
        api         => $api,
        osArch      => $osArch,
        releaseType => $releaseType,
        configType  => $configType,
        string      => "$major.$minor.$service.$revision",
    };
}

# Get the installation directory for library data files
sub dataDir($class) {
    # Try to find the installed data directory
    # Data files are installed alongside shared libraries in auto/Lib/Pepper/

    # Method 1: Check installed location (after 'make install')
    foreach my $inc (@INC) {
        my $dataDir = File::Spec->catdir($inc, 'auto', 'Lib', 'Pepper');
        if(-d $dataDir && -f File::Spec->catfile($dataDir, 'pepper_cardtypes.xml')) {
            return $dataDir;
        }
    }

    # Method 2: Check development location (for testing before install)
    # Look for share/ directory relative to this module's location
    # Module is at lib/Lib/Pepper.pm, share/ is at share/
    my $module_path = $INC{'Lib/Pepper.pm'};
    if(defined $module_path) {
        require File::Basename;
        require Cwd;
        my $moduleDir = File::Basename::dirname($module_path);  # lib/Lib
        my $projectRoot = Cwd::abs_path(File::Spec->catdir($moduleDir, '..', '..'));  # Go up to project root
        my $devShare = File::Spec->catdir($projectRoot, 'share');
        if(-d $devShare && -f File::Spec->catfile($devShare, 'pepper_cardtypes.xml')) {
            return $devShare;
        }
    }

    # Not found
    return;
}

# Get the path to the installed pepper_cardtypes.xml file
sub cardtypesFile($class) {
    my $dataDir = $class->dataDir();
    return unless defined $dataDir;

    my $cardtypesPath = File::Spec->catfile($dataDir, 'pepper_cardtypes.xml');
    return -f $cardtypesPath ? $cardtypesPath : undef;
}

1;
__END__