summaryrefslogtreecommitdiffabout
path: root/lib/App/Glacier/Roster.pm
Side-by-side diff
Diffstat (limited to 'lib/App/Glacier/Roster.pm') (more/less context) (ignore whitespace changes)
-rw-r--r--lib/App/Glacier/Roster.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/App/Glacier/Roster.pm b/lib/App/Glacier/Roster.pm
index ee56ff5..32c2b08 100644
--- a/lib/App/Glacier/Roster.pm
+++ b/lib/App/Glacier/Roster.pm
@@ -1,4 +1,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.