… | |
… | |
117 | sub get($$) { |
117 | sub get($$) { |
118 | my $data; |
118 | my $data; |
119 | |
119 | |
120 | $_[0]->db_get ($_[1], $data) == 0 |
120 | $_[0]->db_get ($_[1], $data) == 0 |
121 | ? $data |
121 | ? $data |
122 | : (); |
122 | : () |
123 | } |
123 | } |
124 | |
124 | |
125 | my %DB_SYNC; |
125 | my %DB_SYNC; |
126 | |
126 | |
127 | sub put($$$) { |
127 | sub put($$$) { |
128 | my ($db, $key, $data) = @_; |
128 | my ($db, $key, $data) = @_; |
129 | |
129 | |
130 | $db->db_put ($key => $data); |
|
|
131 | |
|
|
132 | $DB_SYNC{$db} = AnyEvent->timer (after => 5, cb => sub { $db->db_sync }); |
130 | $DB_SYNC{$db} = AnyEvent->timer (after => 5, cb => sub { $db->db_sync }); |
133 | |
131 | |
|
|
132 | $db->db_put ($key => $data) |
134 | } |
133 | } |
135 | |
134 | |
136 | package CFClient::Texture; |
135 | package CFClient::Texture; |
137 | |
136 | |
138 | use strict; |
137 | use strict; |