projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fill ParameterInfo using GetParameterNames
[perl-cwmp.git]
/
lib
/
CWMP
/
Store
/
HASH.pm
diff --git
a/lib/CWMP/Store/HASH.pm
b/lib/CWMP/Store/HASH.pm
index
3624e4f
..
5b15fcc
100644
(file)
--- a/
lib/CWMP/Store/HASH.pm
+++ b/
lib/CWMP/Store/HASH.pm
@@
-101,6
+101,20
@@
sub get_state {
return;
}
return;
}
+
+=head2 set_state
+
+ $store->set_state( $uid, $state );
+
+=cut
+
+sub set_state {
+ my ( $self, $uid, $state ) = @_;
+ my $file = $self->file( $uid );
+ return $self->save_hash( $file, $state );
+}
+
+
=head2 all_uids
my @uids = $store->all_uids;
=head2 all_uids
my @uids = $store->all_uids;