File Coverage

blib/lib/Unix/Processors/Info.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             # Unix::Processors::Info
2             # See copyright, etc in below POD section.
3             ######################################################################
4              
5             =head1 NAME
6              
7             Unix::Processors::Info - Interface to processor (CPU) information
8              
9             =head1 SYNOPSIS
10              
11             use Unix::Processors;
12              
13             ...
14             $aproc = $proc->processors[0];
15             print ($aproc->id, $aproc->state, $aproc->clock);
16             }
17              
18             =head1 DESCRIPTION
19              
20             This package provides access to per-processor (CPU) information from
21             the operating system in a OS independent manner.
22              
23             =over 4
24              
25             =item id
26              
27             Return the cpu number of this processor.
28              
29             =item clock
30              
31             Return the clock frequency in MHz.
32              
33             =item state
34              
35             Return the cpu state as "online", "offline", or "poweroff".
36              
37             =item type
38              
39             Return the cpu type.
40              
41             =back
42              
43             =head1 DISTRIBUTION
44              
45             The latest version is available from CPAN and from L.
46              
47             Copyright 1999-2017 by Wilson Snyder. This package is free software; you
48             can redistribute it and/or modify it under the terms of either the GNU
49             Lesser General Public License Version 3 or the Perl Artistic License Version 2.0.
50              
51             =head1 AUTHORS
52              
53             Wilson Snyder
54              
55             =head1 SEE ALSO
56              
57             L
58              
59             =cut
60              
61             package Unix::Processors::Info;
62              
63             require DynaLoader;
64             @ISA = qw(DynaLoader);
65              
66 1     1   6 use strict;
  1         1  
  1         24  
67 1     1   4 use vars qw($VERSION);
  1         2  
  1         39  
68              
69             ######################################################################
70             #### Configuration Section
71              
72             $VERSION = '2.045';
73              
74             ######################################################################
75             #### Code
76              
77             #It's all in C
78              
79             ######################################################################
80             #### Package return
81             1;