File Coverage

_build/lib/MyModuleBuilder.pm

Criterion	Covered	Total	%
statement	3	14	21.4
branch	0	6	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	23	17.3

package MyModuleBuilder;
use Module::Build;
@ISA = qw(Module::Build);


        # add dist version to META files
        sub get_metadata {
            my ($self, %args) = @_;
            my $metadata = $self->SUPER::get_metadata(%args);

            if (exists $metadata->{provides}) {
                my $ver = $self->dist_version;
                my $pkgs = $metadata->{provides};
                for my $p (keys %{$pkgs}) {
                    if (!exists($pkgs->{$p}->{'version'})) {
                        $pkgs->{$p}->{'version'} = $ver;
                    } else {
                        $self->log_warn("Note: Module $p has a set version: ".$pkgs->{$p}->{'version'}."\n")
                            if $pkgs->{$p}->{'version'} ne $ver;
                    }
                }
            }
            return $metadata;
        }

1;