File Coverage

blib/lib/Sub/Meta/CreatorFunction.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	45	45	100.0

package Sub::Meta::CreatorFunction;
use 5.010;
use strict;
use warnings;

use Class::Load ();

use Sub::Meta::Library;
use Sub::Meta::Creator;

our @FINDER_CLASSES = (
    'Sub::Meta::Finder::FunctionParameters',
    'Sub::Meta::Finder::SubWrapInType',
    'Sub::Meta::Finder::Default',
);

sub find_submeta {
    my $sub = shift;

    if (my $submeta = Sub::Meta::Library->get($sub)) {
        return $submeta;
    }

    state $creator = Sub::Meta::Creator->new(finders => finders());
    if (my $submeta = $creator->create($sub)) {
        return $submeta;
    }
    return;
}

sub finders {
    my @finders;
    for my $finder_class (@FINDER_CLASSES) {
        if (Class::Load::try_load_class($finder_class)) {
            push @finders => $finder_class->can('find_materials');
        }
    }
    return \@finders;
}

1;
__END__