File Coverage

blib/lib/Sys/Async/Virt/NwFilterBinding.pm
Criterion Covered Total %
statement 23 45 51.1
branch n/a
condition n/a
subroutine 8 14 57.1
pod 4 6 66.6
total 35 65 53.8


line stmt bran cond sub pod time code
1             ####################################################################
2             #
3             # This file was generated using XDR::Parse version v1.0.1
4             # and LibVirt version v12.1.0
5             #
6             # Don't edit this file, use the source template instead
7             #
8             # ANY CHANGES HERE WILL BE LOST !
9             #
10             ####################################################################
11              
12              
13 1     1   12 use v5.26;
  1         3  
14 1     1   4 use warnings;
  1         2  
  1         45  
15 1     1   3 use experimental 'signatures';
  1         2  
  1         5  
16 1     1   125 use Future::AsyncAwait;
  1         2  
  1         6  
17 1     1   36 use Object::Pad;
  1         2  
  1         5  
18              
19             class Sys::Async::Virt::NwFilterBinding v0.6.1;
20              
21 1     1   290 use Carp qw(croak);
  1         3  
  1         51  
22 1     1   4 use Log::Any qw($log);
  1         2  
  1         8  
23              
24 1     1   159 use Protocol::Sys::Virt::Remote::XDR v12.1.0;
  1         10  
  1         1280  
25             my $remote = 'Protocol::Sys::Virt::Remote::XDR';
26              
27              
28              
29 0     0 0   field $_rpc_id :param :reader;
  0            
30 0     0 0   field $_client :param :reader;
  0            
31              
32 0     0 1   method name() {
  0            
  0            
33 0           return $_rpc_id->{name};
34             }
35              
36 0     0 1   method port() {
  0            
  0            
37 0           return $_client->_network_port_instance( $_rpc_id->{portdev} );
38             }
39              
40 0     0 1   method delete() {
  0            
  0            
41 0           return $_client->_call(
42             $remote->PROC_NWFILTER_BINDING_DELETE,
43             { nwfilter => $_rpc_id }, empty => 1 );
44             }
45              
46 0     0 1   async method get_xml_desc($flags = 0) {
  0            
  0            
  0            
  0            
47 0           return await $_client->_call(
48             $remote->PROC_NWFILTER_BINDING_GET_XML_DESC,
49             { nwfilter => $_rpc_id, flags => $flags // 0 }, unwrap => 'xml' );
50             }
51              
52              
53              
54             1;
55              
56             __END__