[libvirt] [PATCH perl 1/2] Add missing define_nwfilter and define_secret APIs

Signed-off-by: Daniel P. Berrangé <berrange(a)redhat.com&gt; --- Changes | 2 +- lib/Sys/Virt.pm | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 33 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index f560864..d2d9a94 100644 --- a/Changes +++ b/Changes @@ -2,7 +2,7 @@ Revision history for perl module Sys::Virt 4.2.0 2018-00-00 - - XXX + - Add missing define_nwfilter and define_secret APIs in Sys::Virt 4.1.0 2018-03-05 diff --git a/lib/Sys/Virt.pm b/lib/Sys/Virt.pm index 035cdb6..f93d122 100644 --- a/lib/Sys/Virt.pm +++ b/lib/Sys/Virt.pm @@ -315,6 +315,38 @@ sub define_network { return Sys::Virt::Network->_new(connection => $self, xml => $xml, nocreate => 1); } +=item my $dom = $vmm->define_nwfilter($xml); + +Defines a new network filter based on the XML description +passed into the C<$xml> parameter. The returned object is an instance +of the L<Sys::Virt::NWFilter> class. This method is not available with +unprivileged connections to the VMM. + +=cut + +sub define_nwfilter { + my $self = shift; + my $xml = shift; + + return Sys::Virt::NWFilter->_new(connection => $self, xml => $xml, nocreate => 1); +} + +=item my $dom = $vmm->define_secret($xml); + +Defines a new secret based on the XML description +passed into the C<$xml> parameter. The returned object is an instance +of the L<Sys::Virt::Secret> class. This method is not available with +unprivileged connections to the VMM. + +=cut + +sub define_secret { + my $self = shift; + my $xml = shift; + + return Sys::Virt::Secret->_new(connection => $self, xml => $xml, nocreate => 1); +} + =item my $dom = $vmm->create_storage_pool($xml); Create a new storage pool based on the XML description passed into the C<$xml> -- 2.14.3