fill ParameterInfo using GetParameterNames

[perl-cwmp.git] / lib / CWMP / Store.pm

diff --git a/lib/CWMP/Store.pm b/lib/CWMP/Store.pm
index c5b5da9..da8164e 100644 (file)
--- a/lib/CWMP/Store.pm
+++ b/lib/CWMP/Store.pm
@@ -109,6 +109,19 @@ sub get_state {
 
 }
 
+
+=head2 set_state
+
+  $store->set_state( $uid, $state );
+
+=cut
+
+sub set_state {
+       my $self = shift;
+       return $self->current_store->set_state( @_ );
+}
+
+
 =head2 all_uids
 
   my @cpe = $store->all_uids;