File Coverage

blib/lib/Eixo/Zone/Driver.pm

Criterion	Covered	Total	%
statement	12	42	28.5
branch	0	14	0.0
condition			n/a
subroutine	5	16	31.2
pod			n/a
total	17	72	23.6

package Eixo::Zone::Driver;

use 5.014002;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our $VERSION = '0.01';

require XSLoader;

XSLoader::load('Eixo::Zone::Driver', $VERSION);

# this is actually a very bad idea, we should define them using /usr/include/linux/sched.h defs

sub  CLONE_NEWUTS	{	0x04000000	}
sub  CLONE_NEWIPC	{	0x08000000	}
sub  CLONE_NEWUSER	{	0x10000000	}
sub  CLONE_NEWPID	{	0x20000000	}
sub  CLONE_NEWNET	{	0x40000000	}
sub  CLONE_IO		{	0x80000000	}
sub  CLONE_NEWFS	{	0x00000200	}
sub  CLONE_NEWNS	{	0x00020000	}

my %ERRORS = (

	1 => ['EPERM', ''],

	9 => ['EBADF'],

	12 => ['ENOMEM'],

	22 => ['EINVAL', ''],

);

#
# low level functions' wrappers
#
sub setns{

	my ($self, $fd, $ns_type, $f_error) = @_;

	my $file_handle;

	if(ref($fd)){

		$file_handle = $fd;
	}
	else{

		open($file_handle, $fd) || return $f_error->("ERROR opening filehandle " . $!);
	}

	my $status = mi_setns($file_handle, $ns_type);

	if($status == 0){
		return 1;
	}

	$f_error->(

		@{$ERRORS{$status} || []}

	);

}

sub getPid{

	mi_getpid();
}

sub clone{
	my ($self, $sub, $flags) = @_;

	my $pid = 0;

	my $ret = mi_clone($sub, 0, $flags, \$pid);

	$ret;

}

sub unshare{
	my ($self, $flags, $f_error) = @_;

	my $status = mi_unshare($flags);

	if($status == 0){
		return 1;
	}

	$f_error->(

		@{$ERRORS{$status} || []}

	);
}

sub caps{

	my $text = mi_caps();

	$text =~ s/^\s*\=//;

	my %caps = map {

		$_ => 1

	} split(/\s*\,\s*/, $text);

	wantarray ? %caps : \%caps;
}

1;

__END__