File Coverage

_build/lib/Evented/Configuration/Builder.pm

Criterion	Covered	Total	%
statement	3	33	9.0
branch	0	12	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	48	8.3

package Evented::Configuration::Builder;
use Module::Build;
@ISA = qw(Module::Build);

        sub ACTION_distmeta {
            my $self = shift;
            if (eval { require Pod::Markdown; 1 }) {

                $self->log_info("Creating README.md using Pod::Markdown\n");
                open my $fh, '>', 'README.md' or return $self->SUPER::ACTION_distmeta(@_);

                my $p = Pod::Markdown->new;
                my $markdown;
                $p->output_string(\$markdown);
                $p->parse_file('lib/Evented/Configuration.pm') or return $self->SUPER::ACTION_distmeta(@_);

                my (@lines, $in_block);
                foreach my $line (split "\n", $markdown) {

                    # indented code.
                    if (substr($line, 0, 4) eq '    ') {
                        my $code = substr($line, 4, length($line) - 4);
                        if ($in_block) {
                            push @lines, $code;
                            next;
                        }

                        push @lines, '````perl', $code;
                        $in_block = 1;
                        next;
                    }

                    # not indented.
                    if ($in_block) {
                        push @lines, '```', $line;
                        $in_block = 0;
                        next;
                    }

                    push @lines, $line;
                }

                print $fh $_, "\n" foreach @lines;
                close $fh;
                $self->_add_to_manifest('MANIFEST', 'README.md');
            }
            else {
                $self->log_warn("Cannot create README.md; Pod::Markdown unavailable\n");
            }
            return $self->SUPER::ACTION_distmeta(@_);
        }

1;