summaryrefslogtreecommitdiffabout
path: root/lib/App/Glacier/Roster.pm
blob: 32c2b08b3b0fa42d35ac18622edd41cbddf02c82 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
package App::Glacier::Roster;
use parent 'App::Glacier::DB';

sub foreach {
    my ($self, $fun) = @_;
    $self->SUPER::foreach(sub {
	my ($key, $descr) = @_;
	(my $vault = $descr->{VaultARN}) =~ s{.*:vaults/}{};
	&{$fun}($key, $descr, $vault);
    });
}	

1;

Return to:

Send suggestions and report system problems to the System administrator.