[#85] returns if a domain is hibernated

lib/Ravada/Domain.pm

@@ -34,6 +34,7 @@ requires 'remove';
 requires 'display';
 
 requires 'is_active';
+requires 'is_hibernated';
 requires 'is_paused';
 requires 'start';
 requires 'shutdown';

lib/Ravada/Domain/KVM.pm

@@ -568,6 +568,17 @@ sub resume {
 }
 
 
+=head2 is_hibernated
+
+Returns if the domain has a managed saved state.
+
+=cut
+
+sub is_hibernated {
+    my $self = shift;
+    return $self->domain->has_managed_save_image;
+}
+
 =head2 is_paused
 
 Returns if the domain is paused

lib/Ravada/Domain/Void.pm

@@ -87,6 +87,8 @@ sub remove {
     $self->remove_disks();
 }
 
+sub is_hibernated { return 0 }
+
 sub is_paused {
     my $self = shift;