File Coverage

blib/lib/Rubyish/Syntax/def.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	3	4	75.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	21	23	91.3

package Rubyish::Syntax::def;

use base 'Devel::Declare::MethodInstaller::Simple';

sub import {
    my $class = shift;
    my $caller = caller;

    my $arg = shift;

    $class->install_methodhandler(
        into            => $caller,
        name            => 'def',
    );
}

sub parse_proto {
    my $ctx = shift;
    my ($proto) = @_;
    my $inject = 'my ($self';
    if (defined $proto) {
        $inject .= ", $proto" if length($proto);
        $inject .= ') = @_; ';
    }
    else {
        $inject .= ') = shift;';
    }
    return $inject;
}

1;

__END__