49 lines
654 B
Perl
49 lines
654 B
Perl
package Sigar;
|
|
|
|
use 5.003;
|
|
use strict;
|
|
use vars qw($VERSION @ISA);
|
|
|
|
$VERSION = '0.01';
|
|
|
|
eval {
|
|
require XSLoader;
|
|
};
|
|
|
|
if ($@) {
|
|
#$] < 5.6
|
|
require DynaLoader;
|
|
@ISA = qw(DynaLoader);
|
|
__PACKAGE__->bootstrap($VERSION);
|
|
}
|
|
else {
|
|
XSLoader::load(__PACKAGE__, $VERSION);
|
|
}
|
|
|
|
sub NULL_HWADDR() { "00:00:00:00:00:00" }
|
|
|
|
sub IFF_UP() { 0x1 }
|
|
|
|
sub IFF_BROADCAST() { 0x2 }
|
|
|
|
sub IFF_DEBUG() { 0x4 }
|
|
|
|
sub IFF_LOOPBACK() { 0x8 }
|
|
|
|
sub IFF_POINTOPOINT() { 0x10 }
|
|
|
|
sub IFF_NOTRAILERS() { 0x20 }
|
|
|
|
sub IFF_RUNNING() { 0x40 }
|
|
|
|
sub IFF_NOARP() { 0x80 }
|
|
|
|
sub IFF_PROMISC() { 0x100 }
|
|
|
|
sub IFF_ALLMULTI() { 0x200 }
|
|
|
|
sub IFF_MULTICAST() { 0x800 }
|
|
|
|
1;
|
|
__END__
|