File Coverage

lib/Data/Identifier/Interface/Userdata.pm

Criterion	Covered	Total	%
statement	19	22	86.3
branch	1	4	25.0
condition	7	9	77.7
subroutine	6	6	100.0
pod	1	1	100.0
total	34	42	80.9

# Copyright (c) 2023-2025 Philipp Schafft

# licensed under Artistic License 2.0 (see LICENSE file)

# ABSTRACT: format independent identifier object


package Data::Identifier::Interface::Userdata;

use v5.20;
use strict;
use warnings;

use Carp;

our $VERSION = v0.28;

my %_package_storage;


sub userdata {
    my ($self, $package, $key, $value) = @_;
    my $userdata;

    if (ref $self) {
        $userdata = $self->_userdata_provider;
    } else {
        if ($self =~ /^[a-zA-Z][a-zA-Z0-9]*(?:::[a-zA-Z0-9]+)*$/) {
            $userdata = $_package_storage{$self} //= {};
        } else {
            croak 'Invalid package name: '.$self;
        }
    }

    $userdata->{$package} //= {};
    return $userdata->{$package}{$key} = $value // $userdata->{$package}{$key};
}


sub _userdata_provider {
    my ($self) = @_;
    return $self->{userdata} //= {};
}

1;

__END__