File Coverage

blib/lib/Data/Path/XS.pm

Criterion	Covered	Total	%
statement	24	29	82.7
branch	6	6	100.0
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	34	40	85.0

package Data::Path::XS;
use strict;
use warnings;

our $VERSION = '0.01';

use parent 'Exporter';
our @EXPORT_OK = qw(path_get path_set path_delete path_exists
                    patha_get patha_set patha_delete patha_exists
                    path_compile pathc_get pathc_set pathc_delete pathc_exists);

require XSLoader;
XSLoader::load('Data::Path::XS', $VERSION);

# Custom import to handle both Exporter and keyword hints
sub import {
    my $class = shift;
    my @args = @_;

    # Check for :keywords tag
    my $enable_keywords = 0;
    my @export_args;
    for my $arg (@args) {
        if ($arg eq ':keywords') {
            $enable_keywords = 1;
        } else {
            push @export_args, $arg;
        }
    }

    # Enable keyword hints if requested
    if ($enable_keywords) {
        $^H{"Data::Path::XS/pathget"} = 1;
        $^H{"Data::Path::XS/pathset"} = 1;
        $^H{"Data::Path::XS/pathdelete"} = 1;
        $^H{"Data::Path::XS/pathexists"} = 1;
    }

    # Forward to Exporter for function exports
    if (@export_args) {
        $class->export_to_level(1, $class, @export_args);
    }
}

sub unimport {
    my $class = shift;
    delete $^H{"Data::Path::XS/pathget"};
    delete $^H{"Data::Path::XS/pathset"};
    delete $^H{"Data::Path::XS/pathdelete"};
    delete $^H{"Data::Path::XS/pathexists"};
}

1;

__END__