27 lines
758 B
Perl
27 lines
758 B
Perl
# Displays protected branches of a project
|
|
package Devscripts::Salsa::protected_branches;
|
|
|
|
use strict;
|
|
use Devscripts::Output;
|
|
use Moo::Role;
|
|
|
|
sub protected_branches {
|
|
my ($self, $reponame) = @_;
|
|
unless ($reponame) {
|
|
ds_warn "Project name is missing";
|
|
return 1;
|
|
}
|
|
my $branches
|
|
= $self->api->protected_branches($self->project2id($reponame));
|
|
if ($branches and @$branches) {
|
|
printf " %-20s | %-25s | %-25s\n", 'Branch', 'Merge', 'Push';
|
|
foreach (@$branches) {
|
|
printf " %-20s | %-25s | %-25s\n", $_->{name},
|
|
$_->{merge_access_levels}->[0]->{access_level_description},
|
|
$_->{push_access_levels}->[0]->{access_level_description};
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
1;
|