/usr/lib/perl5/Sys/Virt/NodeDevice.pm is in libsys-virt-perl 1.2.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 | # -*- perl -*-
#
# Copyright (C) 2006-2009 Red Hat
# Copyright (C) 2006-2009 Daniel P. Berrange
#
# This program is free software; You can redistribute it and/or modify
# it under either:
#
# a) the GNU General Public License as published by the Free
# Software Foundation; either version 2, or (at your option) any
# later version,
#
# or
#
# b) the "Artistic License"
#
# The file "LICENSE" distributed along with this file provides full
# details of the terms and conditions of the two licenses.
=pod
=head1 NAME
Sys::Virt::NodeDevice - Represent & manage a libvirt storage pool
=head1 DESCRIPTION
The C<Sys::Virt::NodeDevice> module represents a storage pool managed
by libvirt. There are a variety of storage pool implementations for
LVM, Local directories/filesystems, network filesystems, disk
partitioning, iSCSI, and SCSI.
=head1 METHODS
=over 4
=cut
package Sys::Virt::NodeDevice;
use strict;
use warnings;
sub _new {
my $proto = shift;
my $class = ref($proto) || $proto;
my %params = @_;
my $con = exists $params{connection} ? $params{connection} : die "connection parameter is requried";
my $self;
if (exists $params{name}) {
$self = Sys::Virt::NodeDevice::_lookup_by_name($con, $params{name});
} elsif (exists $params{wwnn}) {
$self = Sys::Virt::NodeDevice::_lookup_scsihost_by_wwn($con,
$params{wwnn},
$params{wwpn},
$params{flags});
} elsif (exists $params{xml}) {
$self = Sys::Virt::NodeDevice::_create_xml($con, $params{xml});
} else {
die "name parameter is required";
}
bless $self, $class;
return $self;
}
=item my $name = $dev->get_name()
Returns a string with a locally unique name of the device
=item my $parentname = $dev->get_parent()
Returns a string with a locally unique name of the parent
of the device, or undef if there is no parent
=item my $xml = $dev->get_xml_description()
Returns an XML document containing a complete description of
the storage dev's configuration
=item $dev->reattach()
Rebind the node device to the host OS device drivers.
=item $dev->dettach()
Unbind the node device from the host OS device driver
=item $dev->reset()
Reset the node device. The device must be unbound from the host
OS drivers for this to work
=item $dev->destroy()
Destroy the virtual device releasing any OS resources associated
with it.
=item my @caps = $dev->list_capabilities()
Return a list of all capabilities in the device.
=back
=head1 CONSTANTS
This section documents constants that are used with various
APIs described above
=head2 LIST FILTERING
The following constants are used to filter object lists
=over 4
=item Sys::Virt::NodeDevice::LIST_CAP_NET
Include devices with the network capability
=item Sys::Virt::NodeDevice::LIST_CAP_PCI_DEV
Include devices with the PCI device capability
=item Sys::Virt::NodeDevice::LIST_CAP_SCSI
Include devices with the SCSI capability
=item Sys::Virt::NodeDevice::LIST_CAP_SCSI_HOST
Include devices with the SCSI host capability
=item Sys::Virt::NodeDevice::LIST_CAP_SCSI_TARGET
Include devices with the SCSI target capability
=item Sys::Virt::NodeDevice::LIST_CAP_STORAGE
Include devices with the storage capability
=item Sys::Virt::NodeDevice::LIST_CAP_SYSTEM
Include devices with the system capability
=item Sys::Virt::NodeDevice::LIST_CAP_USB_DEV
Include devices with the USB device capability
=item Sys::Virt::NodeDevice::LIST_CAP_USB_INTERFACE
Include devices with the USB interface capability
=item Sys::Virt::NodeDevice::LIST_CAP_FC_HOST
Include devices with the fibre channel host capability
=item Sys::Virt::NodeDevice::LIST_CAP_VPORTS
Include devices with the NPIV vport capability
=item Sys::Virt::NodeDevice::LIST_CAP_SCSI_GENERIC
Include devices with the SCSI generic capability
=back
=cut
1;
=head1 AUTHORS
Daniel P. Berrange <berrange@redhat.com>
=head1 COPYRIGHT
Copyright (C) 2006-2009 Red Hat
Copyright (C) 2006-2009 Daniel P. Berrange
=head1 LICENSE
This program is free software; you can redistribute it and/or modify
it under the terms of either the GNU General Public License as published
by the Free Software Foundation (either version 2 of the License, or at
your option any later version), or, the Artistic License, as specified
in the Perl README file.
=head1 SEE ALSO
L<Sys::Virt>, L<Sys::Virt::Error>, C<http://libvirt.org>
=cut
|