File Coverage

blib/lib/Sub/Meta/Finder/FunctionParameters.pm

Criterion	Covered	Total	%
statement	14	18	77.7
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	20	24	83.3

package Sub::Meta::Finder::FunctionParameters;
use strict;
use warnings;

use Function::Parameters;

sub find_materials {
    my $sub = shift;

    my $info = Function::Parameters::info($sub);
    return unless $info;

    my $keyword = $info->keyword;
    my $nshift  = $info->nshift;

    my @args;
    for ($info->positional_required) {
        push @args => {
            type       => $_->type,
            name       => $_->name,
            positional => 1,
            required   => 1,
        }
    }

    for ($info->positional_optional) {
        push @args => {
            type       => $_->type,
            name       => $_->name,
            positional => 1,
            required   => 0,
        }
    }

    for ($info->named_required) {
        push @args => {
            type       => $_->type,
            name       => $_->name,
            named      => 1,
            required   => 1,
        }
    }

    for ($info->named_optional) {
        push @args => {
            type       => $_->type,
            name       => $_->name,
            named      => 1,
            required   => 0,
        }
    }

    my $invocant = $info->invocant ? +{
        name => $info->invocant->name,
        $info->invocant->type ? ( type => $info->invocant->type ) : (),
    } : undef;

    my $slurpy = $info->slurpy ? +{
        name => $info->slurpy->name,
        $info->slurpy->type ? ( type => $info->slurpy->type ) : (),
    } : undef;

    return +{
        sub       => $sub,
        is_method => $keyword eq 'method' ? !!1 : !!0,
        parameters => {
            args   => \@args,
            nshift => $nshift,
            $invocant ? ( invocant  => $invocant ) : (),
            $slurpy ? ( slurpy => $slurpy ) : (),
        }
    }
}

1;
__END__