File Coverage

blib/lib/Metabrik/Hardware/Temperature.pm
Criterion Covered Total %
statement 9 19 47.3
branch 0 8 0.0
condition n/a
subroutine 3 5 60.0
pod 1 2 50.0
total 13 34 38.2


line stmt bran cond sub pod time code
1             #
2             # $Id$
3             #
4             # hardware::temperature Brik
5             #
6             package Metabrik::Hardware::Temperature;
7 1     1   604 use strict;
  1         2  
  1         29  
8 1     1   5 use warnings;
  1         2  
  1         27  
9              
10 1     1   5 use base qw(Metabrik::File::Text);
  1         2  
  1         283  
11              
12             sub brik_properties {
13             return {
14 0     0 1   revision => '$Revision$',
15             tags => [ qw(unstable) ],
16             author => 'GomoR ',
17             license => 'http://opensource.org/licenses/BSD-3-Clause',
18             commands => {
19             cpu => [ ],
20             },
21             };
22             }
23              
24             sub cpu {
25 0     0 0   my $self = shift;
26              
27 0           my $file = "/sys/class/thermal/thermal_zone0/temp";
28 0 0         $self->brik_help_run_file_not_found('cpu', $file) or return;
29              
30 0 0         my $text = $self->read($file) or return;
31              
32 0 0         if (length($text)) {
33 0           chomp($text);
34 0 0         if ($text =~ /^\d+$/) {
35 0           return $text / 1000;
36             }
37             }
38              
39 0           return $self->log->error("cpu: invalid content in file [$file]");
40             }
41              
42             1;
43              
44             __END__