1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
# Searches groups using given string
package Devscripts::Salsa::search_group;
use strict;
use Devscripts::Output;
use Moo::Role;
sub search_group {
my ($self, $group) = @_;
unless ($group) {
ds_warn "Searched string is missing";
return 1;
}
my $groups = $self->api->group_without_projects($group);
if ($groups) {
$groups = [$groups];
} else {
$groups = $self->api->paginator('groups',
{ search => $group, order_by => 'name' })->all;
}
unless ($groups and @$groups) {
ds_warn "No group found";
return 1;
}
foreach (@$groups) {
print <<END;
Id : $_->{id}
Name : $_->{name}
Full name: $_->{full_name}
Full path: $_->{full_path}
END
}
return 0;
}
1;
|
