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
@@ -3,2 +3,11 @@ 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;