File Coverage

lib/User/Information/Source.pm

Criterion	Covered	Total	%
statement	13	20	65.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	7	71.4
pod			n/a
total	18	32	56.2

# Copyright (c) 2025 Philipp Schafft

# licensed under Artistic License 2.0 (see LICENSE file)

# ABSTRACT: generic module for extracting information from user accounts


package User::Information::Source;

use v5.20;
use strict;
use warnings;

use Carp;

our $VERSION = v0.05;

# ---- Private helpers ----
sub import {
    my ($pkg, @args) = @_;

    foreach my $mod (@args) {
        if ($mod =~ /^User::Information::Source:/ && $mod =~ s#::#/#g) {
            require $mod.'.pm';
        }
    }
}

sub _discover {
    my ($pkg, $base, %opts) = @_;
    croak 'BUG: Not implemented';
}

sub _load {
    my ($pkg, $source, $base, %opts) = @_;
    $pkg->import($source);
    return $source->_discover($base, %opts);
}

1;

__END__