-my $dir = 'yaml';
-
-my $debug = 1;
-
-sub open {
- my $self = shift;
-
- warn "open ",dump( @_ );
-
- if ( ! -e $dir ) {
- mkdir $dir || die "can't create $dir: $!";
- warn "created $dir directory\n";
- }
-
-}
-
-=head2 update_uid_state
-
- $store->update_uid_state( $uid, $state );
-
-=cut
-
-sub update_uid_state {
- my ( $self, $uid, $state ) = @_;
-
- my $file = "$dir/$uid.yml";
-
- DumpFile( $file, $state ) || die "can't write $file: $!";