#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
# vim: set ts=3 sw=3 tw=0:
# vim: set expandtab:
#
use
strict;
use
warnings;
package
Net::OpenNebula::VM::NIC;
$Net::OpenNebula::VM::NIC::VERSION
=
'0.311.0'
;
sub
new {
my
$that
=
shift
;
my
$proto
=
ref
(
$that
) ||
$that
;
my
$self
= {
@_
};
bless
(
$self
,
$proto
);
return
$self
;
}
sub
ip {
my
(
$self
) =
@_
;
return
$self
->{data}->{IP}->[0];
}
sub
mac {
my
(
$self
) =
@_
;
return
$self
->{data}->{MAC}->[0];
}
sub
bridge {
my
(
$self
) =
@_
;
return
$self
->{data}->{BRIDGE}->[0];
}
# returns 0 if no vlan is present
sub
has_vlan {
my
(
$self
) =
@_
;
return
$self
->{data}->{VLAN}->[0] eq
"NO"
? 0 : 1;
}
1;