From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

HACKMAN / Linux-Unshare-1.2 / lib / Linux / Unshare.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
—
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

              
package Linux::Unshare;
use 5.010000;
use strict;
use warnings;
use Carp;
require Exporter;
use AutoLoader;
our @ISA = qw(Exporter);
# This allows declaration       use Linux::Unshare ':all';
our %EXPORT_TAGS = ( 'clone' => [ qw(
        CLONE_THREAD CLONE_FS CLONE_SIGHAND CLONE_VM CLONE_FILES CLONE_SYSVSEM
        CLONE_CONTAINER CLONE_NEWNS CLONE_NEWUTS CLONE_NEWIPC CLONE_NEWNET
        CLONE_NEWPID CLONE_NEWUSER CLONE_NEWCGROUP
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'clone'} }, qw(unshare unshare_ns) );
our @EXPORT = qw( );
our $VERSION = '1.2';
sub AUTOLOAD {
    my $constname;
    our $AUTOLOAD;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "&Linux::Unshare::constant not defined" if $constname eq 'constant';
    my ($error, $val) = constant($constname);
    if ($error) { croak $error; }
    {
        no strict 'refs';
        *$AUTOLOAD = sub { $val };
    }
    goto &$AUTOLOAD;
}
require XSLoader;
XSLoader::load('Linux::Unshare', $VERSION);
sub unshare_ns { return unshare(0x20000) ? 0 : -1; }
1;
__END__
=head1 NAME
Linux::Unshare - Perl interface for Linux unshare system call.
=head1 SYNOPSIS
  use Linux::Unshare qw(unshare :clone);
  # as root ...
  unshare(CLONE_NEWNS)
  # now your mounts will become private
  unshare(CLONE_NEWNET)
  # get a separate network namespace
=head1 DESCRIPTION
This trivial module provides an interface to the Linux unshare system call. It
also provides the CLONE_* constants that are used to specify which kind of
unsharing must be performed. Note that some of these are still not implemented
in the Linux kernel, and others are still experimental.
The unshare system call allows a process to 'unshare' part of the process
context which was originally shared using clone(2).
=head1 SEE ALSO
unshare(2) Linux man page.
=head1 AUTHOR
Boris Sukholitko, E<lt>boriss@gmail.comE<gt>
Marian Marinov, E<lt>hackman@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009 by Boris Sukholitko
Copyright (C) 2014-2023 by Marian Marinov
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.0 or,
at your option, any later version of Perl 5 you may have available.
=cut