view release on metacpan or  search on metacpan

lib/App/Netdisco/Builder.pm  view on Meta::CPAN

    my ($latest_release) = reverse $changes->releases;
    my $version = ($latest_release->version || $ENV{NETDISCO_RELEASE_VERSION});
    die "failed to find version in Changes file or environment\n" unless $version;
    system('perl-reversion', '-set', $version, 'lib/App/Netdisco.pm');

    # Also force Module::Build to refresh its internal version property
    # so the generated META files use the new bumped value.
    $self->{properties}{dist_version}
        = Module::Metadata->new_from_file('lib/App/Netdisco.pm')->version;

    $self->SUPER::ACTION_distmeta(@_);
}

sub ACTION_python {
    my $self = shift;
    require App::Netdisco::Util::Python;
    $self->do_system( App::Netdisco::Util::Python::py_install() );
}

sub ACTION_install {
    my $self = shift;
    $self->SUPER::ACTION_install;
    $self->ACTION_python;
}

1;