File Coverage

blib/lib/TunTap.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch			n/a
condition			n/a
subroutine	16	16	100.0
pod			n/a
total	63	63	100.0

package TunTap;

use 5.010001;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use TunTap ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
		IFF_TUN
		IFF_TAP
		IFF_NO_PI
		TUN_READQ_SIZE

		TUN_TUN_DEV
		TUN_TAP_DEV
		TUN_TYPE_MASK

		TUN_FASYN
		TUN_NOCHECKSUM
		TUN_NO_PI
		TUN_ONE_QUEUE
		TUN_PERSIST
		TUN_VNET_HDR

		tun_alloc
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.02';

require XSLoader;
XSLoader::load('TunTap', $VERSION);

# Preloaded methods go here.
#
use constant IFF_TUN   => 0x0001;
use constant IFF_TAP   => 0x0002;
use constant IFF_NO_PI => 0x1000;


# Read queue size
use constant TUN_READQ_SIZE	=> 500;

# TUN device flags
use constant TUN_TUN_DEV =>	0x0001;
use constant TUN_TAP_DEV =>	0x0002;
use constant TUN_TYPE_MASK =>   0x000f;

use constant TUN_FASYNC	=> 0x0010;
use constant TUN_NOCHECKSUM	 => 0x0020;
use constant TUN_NO_PI	=> 0x0040;
use constant TUN_ONE_QUEUE =>	0x0080;
use constant TUN_PERSIST 	=> 0x0100;
use constant TUN_VNET_HDR 	=> 0x0200;

1;
__END__