File Coverage

blib/lib/Perl6/Pod/Codeactions.pm

Criterion	Covered	Total	%
statement	45	51	88.2
branch	9	12	75.0
condition	1	3	33.3
subroutine	11	13	84.6
pod	0	8	0.0
total	66	87	75.8

package Perl6::Pod::Codeactions;
use Perl6::Pod::Lex::FormattingCode;
use strict;
use warnings;
use Data::Dumper;
use Carp;
our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $self = bless( ( $#_ == 0 ) ? shift : {@_}, ref($class) || $class );
    $self;
}

sub tidy_format_codes_content {
    my @res = ();
    my $tmp = '';
    foreach my $c (@_) {
        if (ref($c)) {
            if ( $tmp )
            {
                push @res, $tmp;
                $tmp = '';
            }
            push @res, $c;

          } else {
            $tmp .= $c;
        }
    }
    push @res, $tmp if $tmp;
    @res;

}

sub Text {
    my $self = shift;
    my $rec  = shift;
    if ( my $content = $rec->{content} ) {
        $rec->{content} = [ tidy_format_codes_content(@$content) ];
    }
    return $rec->{content}
}

sub D_code {
    my $self = shift;
    my $rec  = shift;
    return Perl6::Pod::Lex::FormattingCode->new($rec);
}

sub C_code {
    my $self = shift;
    my $rec  = shift;
    return Perl6::Pod::Lex::FormattingCode->new($rec);
}

sub X_code {
    my $self = shift;
    my $rec  = shift;
    return Perl6::Pod::Lex::FormattingCode->new($rec);
}

sub L_code {
    my $self = shift;
    my $rec  = shift;
    return Perl6::Pod::Lex::FormattingCode->new($rec);
}

sub default_formatting_code {
    my $self = shift;
    my $rec  = shift;
    if ( my $content = $rec->{content} ) {
        $rec->{content} = [ tidy_format_codes_content(@$content) ];
    }
    return Perl6::Pod::Lex::FormattingCode->new($rec);
}
1;