view release on metacpan or  search on metacpan

lib/App/Glacier/Roster.pm  view on Meta::CPAN

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;