join the dots so server starts on reload_config

[scpubgit/Clifton.git] / lib / App / Clifton / Set.pm

diff --git a/lib/App/Clifton/Set.pm b/lib/App/Clifton/Set.pm
index d938189..2bbf860 100644 (file)
--- a/lib/App/Clifton/Set.pm
+++ b/lib/App/Clifton/Set.pm
@@ -18,6 +18,12 @@ sub get {
   $self->_set->{$self->_spec_to_key($spec)};
 }
 
+sub flatten {
+  my ($self) = @_;
+  my $set = $self->_set;
+  map $set->{$_}, sort keys %$set;
+}
+
 sub _spec_to_object {
   my ($self, $spec) = @_;
   if (blessed($spec) && $spec->isa($self->_set_of_class)) {