File Coverage

blib/lib/IPC/SysV.pm
Criterion Covered Total %
statement 27 29 93.1
branch 2 4 50.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 37 41 90.2


line stmt bran cond sub pod time code
1             ################################################################################
2             #
3             # Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz .
4             # Version 1.x, Copyright (C) 1997, Graham Barr .
5             #
6             # This program is free software; you can redistribute it and/or
7             # modify it under the same terms as Perl itself.
8             #
9             ################################################################################
10              
11             package IPC::SysV;
12              
13 4     4   264766 use strict;
  4         37  
  4         142  
14 4     4   24 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION $AUTOLOAD);
  4         7  
  4         354  
15 4     4   28 use Carp;
  4         7  
  4         252  
16 4     4   27 use Config;
  4         6  
  4         1073  
17              
18             require Exporter;
19             @ISA = qw(Exporter);
20              
21             $VERSION = '2.09';
22              
23             # To support new constants, just add them to @EXPORT_OK
24             # and the C/XS code will be generated automagically.
25             @EXPORT_OK = (qw(
26              
27             GETALL GETNCNT GETPID GETVAL GETZCNT
28              
29             IPC_ALLOC IPC_CREAT IPC_EXCL IPC_GETACL IPC_INFO IPC_LOCKED
30             IPC_M IPC_NOERROR IPC_NOWAIT IPC_PRIVATE IPC_R IPC_RMID
31             IPC_SET IPC_SETACL IPC_SETLABEL IPC_STAT IPC_W IPC_WANTED
32              
33             MSG_EXCEPT MSG_FWAIT MSG_INFO MSG_LOCKED MSG_MWAIT MSG_NOERROR
34             MSG_QWAIT MSG_R MSG_RWAIT MSG_STAT MSG_W MSG_WAIT MSG_WWAIT
35              
36             SEM_A SEM_ALLOC SEM_DEST SEM_ERR SEM_INFO SEM_ORDER SEM_R
37             SEM_STAT SEM_UNDO
38              
39             SETALL SETVAL
40              
41             SHMLBA
42              
43             SHM_A SHM_CLEAR SHM_COPY SHM_DCACHE SHM_DEST SHM_ECACHE
44             SHM_FMAP SHM_HUGETLB SHM_ICACHE SHM_INFO SHM_INIT SHM_LOCK
45             SHM_LOCKED SHM_MAP SHM_NORESERVE SHM_NOSWAP SHM_R SHM_RDONLY
46             SHM_REMAP SHM_REMOVED SHM_RND SHM_SHARE_MMU SHM_SHATTR
47             SHM_SIZE SHM_STAT SHM_UNLOCK SHM_W
48              
49             S_IRUSR S_IWUSR S_IXUSR S_IRWXU
50             S_IRGRP S_IWGRP S_IXGRP S_IRWXG
51             S_IROTH S_IWOTH S_IXOTH S_IRWXO
52              
53             ENOSPC ENOSYS ENOMEM EACCES
54              
55             ), qw(
56              
57             ftok shmat shmdt memread memwrite
58              
59             ));
60              
61             %EXPORT_TAGS = (
62             all => [@EXPORT, @EXPORT_OK],
63             );
64              
65             sub AUTOLOAD
66             {
67 30     30   5326 my $constname = $AUTOLOAD;
68 30         182 $constname =~ s/.*:://;
69 30 50       85 die "&IPC::SysV::_constant not defined" if $constname eq '_constant';
70 30         118 my ($error, $val) = _constant($constname);
71 30 50       70 if ($error) {
72 0         0 my (undef, $file, $line) = caller;
73 0         0 die "$error at $file line $line.\n";
74             }
75             {
76 4     4   29 no strict 'refs';
  4         9  
  4         330  
  30         42  
77 30     46   166 *$AUTOLOAD = sub { $val };
  46         8026  
78             }
79 30         107 goto &$AUTOLOAD;
80             }
81              
82             BOOT_XS: {
83             # If I inherit DynaLoader then I inherit AutoLoader and I DON'T WANT TO
84 4     4   32 use XSLoader ();
  4         16  
  4         212  
85              
86             XSLoader::load( 'IPC::SysV', $VERSION );
87              
88             }
89              
90             1;
91              
92             __END__