File Coverage

blib/lib/Linux/Setns.pm

Criterion	Covered	Total	%
statement	15	20	75.0
branch	7	12	58.3
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	27	38	71.0

package Linux::Setns;

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 Linux::Setns ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

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

our @EXPORT = qw(
	setns CLONE_ALL CLONE_NEWNS CLONE_NEWIPC CLONE_NEWNET CLONE_NEWUTS CLONE_NEWPID CLONE_NEWUSER CLONE_NEWCGROUP
);

our $VERSION = '2.00';

use constant {
	CLONE_ALL => 0,
	CLONE_NEWNS => 0x00020000,
	CLONE_NEWIPC => 0x08000000,
	CLONE_NEWNET => 0x40000000,
	CLONE_NEWUTS => 0x04000000,
	CLONE_NEWPID => 0x20000000,
	CLONE_NEWUSER => 0x10000000,
	CLONE_NEWCGROUP => 0x02000000
};

require XSLoader;
XSLoader::load('Linux::Setns', $VERSION);

# Preloaded methods go here.

sub setns {
	my $ret = setns_wrapper($_[0], $_[1]);
	if ($ret == 0) {
		return 1;
	} elsif ($ret == 1) {
		print STDERR "Error: setns() The calling thread did not have the required privilege (CAP_SYS_ADMIN) for this operation\n";
	} elsif ($ret == 2) {
		print STDERR "Error: setns() Unable to open file $_[0]\n";
	} elsif ($ret == 9) {
		print STDERR "Error: setns() FD is not a valid file descriptor\n";
	} elsif ($ret == 12) {
		print STDERR "Error: setns() Cannot allocate sufficient memory to change the specified namespace\n";
	} elsif ($ret == 22) {
		print STDERR "Error: setns() FD refers to a namespace whose type does not match that specified in nstype, or there is problem with reassociating the the thread with the specified namespace\n";
	}
	return 0;
}

1;
__END__