add initial WIP

[chaz/p5-File-KDBX] / lib / File / KDBX / Transaction.pm

diff --git a/lib/File/KDBX/Transaction.pm b/lib/File/KDBX/Transaction.pm
new file mode 100644 (file)
index 0000000..10e8b3f
--- /dev/null
+++ b/lib/File/KDBX/Transaction.pm
@@ -0,0 +1,47 @@
+package File::KDBX::Transaction;
+# ABSTRACT: Make multiple database edits atomically
+
+use warnings;
+use strict;
+
+use Devel::GlobalDestruction;
+use namespace::clean;
+
+our $VERSION = '999.999'; # VERSION
+
+sub new {
+    my $class = shift;
+    my $object = shift;
+    my $orig   = shift // $object->clone;
+    return bless {object => $object, original => $orig}, $class;
+}
+
+sub DESTROY { !in_global_destruction and $_[0]->rollback }
+
+sub object   { $_[0]->{object} }
+sub original { $_[0]->{original} }
+
+sub commit {
+    my $self = shift;
+    my $obj = $self->object;
+    if (my $commit = $obj->can('_commit')) {
+        $commit->($obj, $self);
+    }
+    $self->{committed} = 1;
+    return $obj;
+}
+
+sub rollback {
+    my $self = shift;
+    return if $self->{committed};
+
+    my $obj = $self->object;
+    my $orig = $self->original;
+
+    %$obj = ();
+    @$obj{keys %$orig} = values %$orig;
+
+    return $obj;
+}
+
+1;