view release on metacpan or  search on metacpan

inc/MyVersionProvider.pm  view on Meta::CPAN

    around fill_in_string => sub
    {
        my $orig = shift;
        my $self = shift;
        my ($content, $params) = @_;

        $content = $self->$orig($content, $params);

        my $orig_version = ${ $params->{version} };
        my $new_version = sprintf('%a', $orig_version);
        $new_version .= ' ' x (List::Util::min(length($orig_version), 8) - length($new_version));

        $content =~ s/^Revision history for Acme-Version-Hex\n\n\K$orig_version(\s+)/$new_version$1/;
        return $content;
    };
}

{
    package Dist::Zilla::Plugin::Test::ChangesHasContent;
    use Moose;
    __PACKAGE__->meta->make_mutable;

t/00-report-prereqs.t  view on Meta::CPAN

                if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
                    push @dep_errors, "$mod is not installed ($req_string)";
                }
            }
        }

        if ( @reports ) {
            push @full_reports, "=== $title ===\n\n";

            my $ml = _max( map { length $_->[0] } @reports );
            my $wl = _max( map { length $_->[1] } @reports );
            my $hl = _max( map { length $_->[2] } @reports );

            if ($type eq 'modules') {
                splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
            }
            else {
                splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
            }