File Coverage

lib/Data/Identifier/Interface/Known.pm

Criterion	Covered	Total	%
statement	28	57	49.1
branch	4	22	18.1
condition	1	8	12.5
subroutine	6	7	85.7
pod	1	1	100.0
total	40	95	42.1

# Copyright (c) 2023-2025 Philipp Schafft

# licensed under Artistic License 2.0 (see LICENSE file)

# ABSTRACT: format independent identifier object


package Data::Identifier::Interface::Known;

use v5.20;
use strict;
use warnings;

use Carp;
use Data::Identifier;

our $VERSION = v0.28;

my @_subobjects = qw(db extractor store fii);


sub known {
    my ($pkg, $class, %opts) = @_;
    my $as = $opts{as} // 'raw';
    my ($list, %extra) = eval {$pkg->_known_provider($class)};
    my $listas = $opts{listas};

    if (defined $list) {
        if ($extra{not_identifiers}) {
            if (!defined($listas)) {
                if ($as eq 'raw' || (defined($extra{rawtype}) && $as eq $extra{rawtype})) {
                    return @{$list};
                }
            }

            if ($opts{skip_invalid}) {
                # Let us try again with only identifiers:
                my @res;

                @res = grep {defined} map {eval {$_->Data::Identifier::as($as, %opts{@_subobjects, qw(no_defaults)}, %extra{qw(rawtype)})}} @{$list};

                if (defined($listas)) {
                    require Data::Identifier::Cloudlet;
                    return Data::Identifier::Cloudlet->new(root => \@res, %opts{@_subobjects})->as($listas, %opts{@_subobjects});
                }

                return @res;
            }
        } else {
            my @res;

            if ($opts{skip_invalid}) {
                @res = grep {defined} map {eval {$_->Data::Identifier::as($as, %opts{@_subobjects, qw(no_defaults)}, %extra{qw(rawtype)})}} @{$list};
            } else {
                @res = map {$_->Data::Identifier::as($as, %opts{@_subobjects, qw(no_defaults)}, %extra{qw(rawtype)})} @{$list};
            }

            if (defined($listas)) {
                require Data::Identifier::Cloudlet;
                return Data::Identifier::Cloudlet->new(root => \@res, %opts{@_subobjects})->as($listas, %opts{@_subobjects});
            }

            return @res;
        }
    }

    return @{$opts{default}} if exists $opts{default};
    croak 'Unsupported class or options';
}


sub _known_provider {
    my ($pkg, $class, %opts) = @_;
    croak 'Unsupported options passed' if scalar(keys %opts);
    return ([]) if $class eq ':all';
    croak 'Unsupported class';
}

1;

__END__