[libvirt] [perl PATCH 4/6] Add missing create_checkpoint method

[Daniel P. Berrangé]

Signed-off-by: Daniel P. Berrangé <berrange at redhat.com>
---
 Changes                |  1 +
 lib/Sys/Virt/Domain.pm | 17 +++++++++++++++++
 2 files changed, 18 insertions(+)

diff --git a/Changes b/Changes
index 09d1dca..f36d401 100644
--- a/Changes
+++ b/Changes
@@ -9,6 +9,7 @@ Revision history for perl module Sys::Virt
  - Add handling for VIR_MIGRATE_PARAM_PARALLEL_CONNECTIONS
    constant when invoking migrate
  - Add VIR_MIGRATE_PARAM_TLS_DESTINATION constant
+ - Add missing create_checkpoint method on Sys::Virt::Domain
 
 5.10.0 2019-12-03
 
diff --git a/lib/Sys/Virt/Domain.pm b/lib/Sys/Virt/Domain.pm
index ae909de..d9d64e4 100644
--- a/lib/Sys/Virt/Domain.pm
+++ b/lib/Sys/Virt/Domain.pm
@@ -1965,6 +1965,23 @@ sub get_checkpoint_by_name {
     return Sys::Virt::DomainCheckpoint->_new(domain => $self, name => $name);
 }
 
+=item $checkpoint = $dom->create_checkpoint($xml[, $flags])
+
+Create a new checkpoint from the C<$xml>. The C<$flags> parameter accepts
+the B<CHECKPOINT CREATION> constants listed in C<Sys::Virt::DomainCheckpoints>.
+
+=cut
+
+sub create_checkpoint {
+    my $self = shift;
+    my $xml = shift;
+    my $flags = shift;
+
+    my $checkpoint = Sys::Virt::DomainCheckpoint->_new(domain => $self, xml => $xml, flags => $flags);
+
+    return $checkpoint;
+}
+
 1;
 
 =item $dom->fs_trim($mountPoint, $minimum, $flags=0);
-- 
2.23.0