File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Sys/Info/Constants.pm
Back
package Sys::Info::Constants; $Sys::Info::Constants::VERSION = '0.7807'; use strict; use warnings; use Carp qw( croak ); use base qw( Exporter ); BEGIN { if ( ! defined &OSID ) { my %OS = ( MSWin32 => 'Windows', MSWin64 => 'Windows', linux => 'Linux', darwin => 'OSX', ); $OS{$_} = 'BSD' for qw( freebsd openbsd netbsd ); my $ID = $OS{ $^O } || 'Unknown'; *OSID = sub () { "$ID" } } } use constant DCPU_LOAD_LAST_01 => 0; use constant DCPU_LOAD_LAST_05 => 1; use constant DCPU_LOAD_LAST_10 => 2; use constant DCPU_LOAD => (0..2); use constant WIN_REG_HW_KEY => 'HKEY_LOCAL_MACHINE/HARDWARE/'; use constant WIN_REG_CPU_KEY => WIN_REG_HW_KEY . q{DESCRIPTION/System/CentralProcessor}; use constant WIN_REG_CDKEY => q{HKEY_LOCAL_MACHINE/Software/Microsoft/} . q{Windows NT/CurrentVersion//DigitalProductId}; use constant WIN_REG_OCDKEY => q{HKEY_LOCAL_MACHINE/Software/Microsoft/Office}; use constant WIN_WMI_DATE_TMPL => 'A4 A2 A2 A2 A2 A2'; use constant WIN_B24_DIGITS => qw( B C D F G H J K M P Q R T V W X Y 2 3 4 6 7 8 9 ); use constant WIN_USER_INFO_LEVEL => 3; use constant DATE_WEEKDAYS => qw( Sun Mon Tue Wed Thu Fri Sat ); use constant DATE_MONTHS => qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ); use constant DATE_MKTIME_YDAY => 0; use constant DATE_MKTIME_ISDST => -1; use constant UN_RE_BUILD => qr{\A Build \s+ (\d+) .* \z}xmsi; use constant NEW_PERL => $] >= 5.008; use constant USER_REAL_NAME_FIELD => 6; our %EXPORT_TAGS = ( device_cpu => [qw/ DCPU_LOAD_LAST_01 DCPU_LOAD_LAST_05 DCPU_LOAD_LAST_10 DCPU_LOAD /], windows_reg => [qw/ WIN_REG_HW_KEY WIN_REG_CPU_KEY WIN_REG_CDKEY WIN_REG_OCDKEY /], windows_wmi => [qw/ WIN_WMI_DATE_TMPL /], windows_etc => [qw/ WIN_B24_DIGITS WIN_USER_INFO_LEVEL /], date => [qw/ DATE_WEEKDAYS DATE_MONTHS DATE_MKTIME_YDAY DATE_MKTIME_ISDST /], unknown => [qw/ UN_RE_BUILD /], general => [qw/ OSID NEW_PERL USER_REAL_NAME_FIELD /], ); our @EXPORT_OK = map { @{ $_ } } values %EXPORT_TAGS; $EXPORT_TAGS{all} = \@EXPORT_OK; 1; __END__ =pod =encoding UTF-8 =head1 NAME Sys::Info::Constants =head1 VERSION version 0.7807 =head1 SYNOPSIS use Sys::Info::Constants qw( :device_cpu ); printf "CPU Load: %s\n", $cpu->load(DCPU_LOAD_LAST_01); =head1 DESCRIPTION This module defines all the constants used inside C<Sys::Info> and it's subclasses. =head1 NAME Sys::Info::Constants - Constants for Sys::Info =head1 CONSTANTS Every constant can be imported individually or via import keys: Import Key Constant ------------ ----------------- :device_cpu DCPU_LOAD_LAST_01 DCPU_LOAD_LAST_05 DCPU_LOAD_LAST_10 DCPU_LOAD :windows_reg WIN_REG_HW_KEY WIN_REG_CPU_KEY WIN_REG_CDKEY WIN_REG_OCDKEY :windows_wmi WIN_WMI_DATE_TMPL :windows_etc WIN_B24_DIGITS WIN_USER_INFO_LEVEL :date DATE_WEEKDAYS DATE_MONTHS DATE_MKTIME_YDAY DATE_MKTIME_ISDST :general OSID =head2 OSID The Operating System name used inside all C<Sys::Info> modules. =head1 SEE ALSO L<Sys::Info>. =head1 AUTHOR Burak Gursoy <burak@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2006 by Burak Gursoy. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.04 |
proxy
|
phpinfo
|
Settings