view release on metacpan or  search on metacpan

lib/App/BCVI/InstallManager.pm  view on Meta::CPAN

    $self->tie_install_sig_db();
    delete $sig_db{$host};
    $self->untie_install_sig_db();
}


sub install_to_host {
    my($self, $host) = @_;

    my $sig = $self->install_source_signature();
    if( $self->SUPER::install_to_host($host) ) {
        $self->set_install_signature($host=> $sig);
        return 1;
    }
    return;
}


sub tie_install_sig_db {
    my($self) = @_;
    $db_file ||= File::Spec->catfile($self->conf_directory, 'install.db');