File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	28	29	96.5

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

use base 'Devel::Declare::Parser';
use Devel::Declare::Interface;
Devel::Declare::Interface::register_parser( 'codeblock' );

sub rewrite {
    my $self = shift;
    $self->bail(
        "Syntax error near: " . join( ' and ',
            map { $self->format_part($_)}
                @{ $self->parts }
        )
    ) if $self->parts && @{ $self->parts };
    1;
}

1;

__END__