File Coverage

blib/lib/Devel/Declare/Parser/Fennec.pm

Criterion	Covered	Total	%
statement	33	38	86.8
branch	11	16	68.7
condition	4	6	66.6
subroutine	8	10	80.0
pod	2	5	40.0
total	58	75	77.3

package Devel::Declare::Parser::Fennec;
use strict;
use warnings;

use Devel::Declare::Interface;
use base 'Exporter::Declare::Magic::Parser';
BEGIN { Devel::Declare::Interface::register_parser('fennec') }

our $VERSION = '0.005';
our %NAMELESS;
sub nameless    { $NAMELESS{$_[-1]}++ }
sub is_nameless { $NAMELESS{shift->name} }

sub args { (qw/name/) }

sub inject {
    my $self = shift;
    return if $self->is_nameless;
    return if $self->has_fat_comma;
    return ('my $self = shift');
}

sub rewrite {
    my $self = shift;

    return 1 if $self->is_nameless;

    $self->strip_prototype;
    $self->_check_parts;

    my $is_arrow = $self->parts->[1]
        && ( $self->parts->[1] eq '=>' || $self->parts->[1] eq ',' );
    if ( $is_arrow && $self->parts->[2] ) {
        my $is_ref = ref( $self->parts->[2] );
        my $is_sub = $is_ref ? $self->parts->[2]->[0] eq 'sub' : 0;

        if ( !$is_ref ) {
            $self->new_parts( [$self->parts->[0], $self->parts->[2]] );
            return 1;
        }
        elsif ($is_sub) {
            $self->new_parts( [$self->parts->[0]] );
            return 1;
        }
        else {
            $self->bail('oops');
        }
    }

    my ( $names, $specs ) = $self->sort_parts();
    $self->new_parts(
        [
            @$names,
            @$specs
            ? (
                ( map { $_->[0] } @$specs ),
                ['method']
                )
            : ()
        ]
    );

    1;
}

1;

__END__