EHUELS / Sys-Async-Virt-v0.0.15 / lib / Sys / Async / Virt / Interface.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
—
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

              
####################################################################
#
#     This file was generated using XDR::Parse version v0.3.1
#                   and LibVirt version v11.0.0
#
#      Don't edit this file, use the source template instead
#
#                 ANY CHANGES HERE WILL BE LOST !
#
####################################################################
use v5.26;
use warnings;
use experimental 'signatures';
use Future::AsyncAwait;
package Sys::Async::Virt::Interface v0.0.15;
use Carp qw(croak);
use Log::Any qw($log);
use Protocol::Sys::Virt::Remote::XDR v0.0.15;
my $remote = 'Protocol::Sys::Virt::Remote::XDR';
use constant {
    XML_INACTIVE => 1 << 0,
};
sub new($class, %args) {
    return bless {
        id => $args{id},
        client => $args{client},
    }, $class;
}
sub create($self, $flags = 0) {
    return $self->{client}->_call(
        $remote->PROC_INTERFACE_CREATE,
        { iface => $self->{id}, flags => $flags // 0 }, empty => 1 );
}
sub destroy($self, $flags = 0) {
    return $self->{client}->_call(
        $remote->PROC_INTERFACE_DESTROY,
        { iface => $self->{id}, flags => $flags // 0 }, empty => 1 );
}
async sub get_xml_desc($self, $flags = 0) {
    return await $self->{client}->_call(
        $remote->PROC_INTERFACE_GET_XML_DESC,
        { iface => $self->{id}, flags => $flags // 0 }, unwrap => 'xml' );
}
async sub is_active($self) {
    return await $self->{client}->_call(
        $remote->PROC_INTERFACE_IS_ACTIVE,
        { iface => $self->{id} }, unwrap => 'active' );
}
sub undefine($self) {
    return $self->{client}->_call(
        $remote->PROC_INTERFACE_UNDEFINE,
        { iface => $self->{id} }, empty => 1 );
}
1;
__END__
=head1 NAME
Sys::Async::Virt::Interface - Client side proxy to remote LibVirt (network) interface
=head1 VERSION
v0.0.15
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 EVENTS
=head1 CONSTRUCTOR
=head2 new
=head1 METHODS
=head2 create
  await $iface->create( $flags = 0 );
  # -> (* no data *)
See documentation of L<virInterfaceCreate|https://libvirt.org/html/libvirt-libvirt-interface.html#virInterfaceCreate>.
=head2 destroy
  await $iface->destroy( $flags = 0 );
  # -> (* no data *)
See documentation of L<virInterfaceDestroy|https://libvirt.org/html/libvirt-libvirt-interface.html#virInterfaceDestroy>.
=head2 get_xml_desc
  $xml = await $iface->get_xml_desc( $flags = 0 );
See documentation of L<virInterfaceGetXMLDesc|https://libvirt.org/html/libvirt-libvirt-interface.html#virInterfaceGetXMLDesc>.
=head2 is_active
  $active = await $iface->is_active;
See documentation of L<virInterfaceIsActive|https://libvirt.org/html/libvirt-libvirt-interface.html#virInterfaceIsActive>.
=head2 undefine
  await $iface->undefine;
  # -> (* no data *)
See documentation of L<virInterfaceUndefine|https://libvirt.org/html/libvirt-libvirt-interface.html#virInterfaceUndefine>.
=head1 INTERNAL METHODS
=head1 CONSTANTS
=over 8
=item XML_INACTIVE
=back
=head1 SEE ALSO
L<LibVirt|https://libvirt.org>, L<Sys::Virt>
=head1 LICENSE AND COPYRIGHT
  Copyright (C) 2024 Erik Huelsmann
All rights reserved. This program is free software;
you can redistribute it and/or modify it under the same terms as Perl itself.