/usr/share/perl5/Sys/Info/Constants.pm is in libsys-info-base-perl 0.7804-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 | package Sys::Info::Constants;
use strict;
use warnings;
use vars qw( $VERSION @EXPORT_OK %EXPORT_TAGS );
use Carp qw( croak );
use base qw( Exporter );
$VERSION = '0.7804';
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;
%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
/],
);
@EXPORT_OK = map { @{ $_ } } values %EXPORT_TAGS;
$EXPORT_TAGS{all} = \@EXPORT_OK;
1;
__END__
=head1 NAME
Sys::Info::Constants - Constants for Sys::Info
=head1 SYNOPSIS
use Sys::Info::Constants qw( :device_cpu );
printf "CPU Load: %s\n", $cpu->load(DCPU_LOAD_LAST_01);
=head1 DESCRIPTION
This document describes version C<0.7804> of C<Sys::Info::Constants>
released on C<21 January 2015>.
This module defines all the constants used inside C<Sys::Info> and it's
subclasses.
=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
Copyright 2006 - 2015 Burak Gursoy. All rights reserved.
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.16.2 or,
at your option, any later version of Perl 5 you may have available.
=cut
|