6 |
|
|
7 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
8 |
use YAML qw/LoadFile DumpFile/; |
use YAML qw/LoadFile DumpFile/; |
9 |
|
use Hash::Merge qw/merge/; |
10 |
|
|
11 |
=head1 NAME |
=head1 NAME |
12 |
|
|
45 |
|
|
46 |
my $file = "$dir/$uid.yml"; |
my $file = "$dir/$uid.yml"; |
47 |
|
|
48 |
DumpFile( $file, $state ) || die "can't write $file: $!"; |
my $old_state = $self->get_state( $uid ); |
49 |
|
|
50 |
|
my $combined = merge( $state, $old_state ); |
51 |
|
|
52 |
|
# warn "## ",dump( $old_state, $state, $combined ); |
53 |
|
|
54 |
|
DumpFile( $file, $combined ) || die "can't write $file: $!"; |
55 |
|
|
56 |
} |
} |
57 |
|
|