view release on metacpan or  search on metacpan

lib/CommitBit/Record.pm  view on Meta::CPAN

sub _set {
    my $self = shift;
    my @ret = $self->SUPER::_set(@_);

    $self->update_all_repositories;

    return @ret;
}


sub update_all_repositories {
    my $self = shift;

    my $repositories = CommitBit::Model::RepositoryCollection->new;
    $repositories->unlimit;

    while (my $repository = $repositories->next) {
        $repository->write_password_files;
        $repository->write_authz_file();
    }
}