Commit 06ce3dcf authored by Francesc Guasch's avatar Francesc Guasch
Browse files

[#85] returns if a domain is hibernated

parent b35f3ed9
...@@ -34,6 +34,7 @@ requires 'remove'; ...@@ -34,6 +34,7 @@ requires 'remove';
requires 'display'; requires 'display';
requires 'is_active'; requires 'is_active';
requires 'is_hibernated';
requires 'is_paused'; requires 'is_paused';
requires 'start'; requires 'start';
requires 'shutdown'; requires 'shutdown';
......
...@@ -568,6 +568,17 @@ sub resume { ...@@ -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 =head2 is_paused
Returns if the domain is paused Returns if the domain is paused
......
...@@ -87,6 +87,8 @@ sub remove { ...@@ -87,6 +87,8 @@ sub remove {
$self->remove_disks(); $self->remove_disks();
} }
sub is_hibernated { return 0 }
sub is_paused { sub is_paused {
my $self = shift; my $self = shift;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment