File Coverage

blib/lib/Syntax/Feature/Function.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	7	10	70.0
condition	1	2	50.0
subroutine	9	9	100.0
pod	1	1	100.0
total	56	62	90.3

use strict;
use warnings;

# ABSTRACT: Provides a function keyword

package Syntax::Feature::Function;
{
  $Syntax::Feature::Function::VERSION = '0.002';
}

use Carp                    qw( croak );
use Function::Parameters    ();
use B::Hooks::EndOfScope;
use Import::Into;

use namespace::clean;

$Carp::Internal{ +__PACKAGE__ }++;

sub install {
    my ($class, %args) = @_;

    my $target  = $args{into};
    my $options = $args{options};
    my @names   = qw( fun );

    # we received options
    if (defined $options) {
        my $options_ref = ref $options;

        # function => { ... }
        if ($options_ref eq 'HASH') {

            # function => { -as => ... }
            if (defined( my $as = $options->{ -as } )) {
                my $as_ref = ref $as;

                # -as => 'fun'
                if (not $as_ref) {

                    @names = ($as);
                }

                # -as => [qw( fun f )]
                elsif (ref $as eq 'ARRAY') {

                    @names = @$as;
                }

                # bad -as type
                else {

                    croak q(The '-as' option to the 'function' syntax feature only accepts)
                        . q( scalar and array reference values);
                }
            }
        }

        # bad options type
        else {

            croak q(Options for feature must be a hash or array reference);
        }
    }

    # make sure all names are valid
    m/\A[_a-z][_a-z0-9]*\Z/i
        or croak qq(Invalid function declaration identifier '$_')
        for @names;

    # install handlers
    Function::Parameters->import::into($target, $_)
        for @names;

    on_scope_end {
        namespace::clean->clean_subroutines($target, @names);
    };

    return 1;
}

1;

__END__