File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/x86_64-linux/POSIX/1003/Pathconf.pm
Back
# Copyrights 2011-2020 by [Mark Overmeer]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. # This code is part of distribution POSIX-1003. Meta-POD processed with # OODoc into POD and HTML manual-pages. See README.md # Copyright Mark Overmeer. Licensed under the same terms as Perl itself. package POSIX::1003::Pathconf; use vars '$VERSION'; $VERSION = '1.02'; use base 'POSIX::1003::Module'; use warnings; use strict; use Carp 'croak'; my @constants; my @functions = qw/pathconf fpathconf pathconf_names/; our %EXPORT_TAGS = ( constants => \@constants , functions => \@functions , tables => [ '%pathconf' ] ); my $pathconf; our %pathconf; BEGIN { $pathconf = pathconf_table; push @constants, keys %$pathconf; tie %pathconf, 'POSIX::1003::ReadOnlyTable', $pathconf; } sub pathconf($$); sub exampleValue($) { my ($class, $name) = @_; $name =~ m/^_PC_/ or return; my $val = pathconf __FILE__, $name; defined $val ? $val : 'undef'; } sub fpathconf($$) { my ($fd, $key) = @_; $key =~ /^_PC_/ or croak "pass the constant name as string"; my $id = $pathconf{$key} // return; my $v = POSIX::fpathconf($fd, $id); defined $v && $v eq '0 but true' ? 0 : $v; } sub pathconf($$) { my ($fn, $key) = @_; $key =~ /^_PC_/ or croak "pass the constant name as string"; my $id = $pathconf{$key} // return; my $v = POSIX::pathconf($fn, $id); defined $v ? $v+0 : undef; # remove 'but true' from '0' } sub _create_constant($) { my ($class, $name) = @_; my $id = $pathconf->{$name} // return sub($) {undef}; sub($) { my $f = shift; $f =~ m/\D/ ? POSIX::pathconf($f, $id) : POSIX::fpathconf($f, $id) }; } sub pathconf_names() { keys %$pathconf }
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.12 |
proxy
|
phpinfo
|
Settings