File Coverage

blib/lib/DigitalX/AqHive/Temp.pm
Criterion Covered Total %
statement 4 4 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 6 100.0


line stmt bran cond sub pod time code
1             package DigitalX::AqHive::Temp;
2             BEGIN {
3 1     1   921 $DigitalX::AqHive::Temp::AUTHORITY = 'cpan:GETTY';
4             }
5             $DigitalX::AqHive::Temp::VERSION = '0.002';
6 1     1   7 use Digital::Driver;
  1         2  
  1         5  
7              
8             with qw(
9             DigitalX::AqHive
10             );
11              
12             to K => sub { ( $_ - 25 ) / 10 }, 'fixed';
13              
14             overload_to C => sub { $_ - 273.15 }, 'K';
15              
16             to F => sub { ( $_ * ( 9 / 5 ) ) - 459.67 }, 'K';
17              
18             1;
19              
20             __END__
21              
22             =pod
23              
24             =head1 NAME
25              
26             DigitalX::AqHive::Temp
27              
28             =head1 VERSION
29              
30             version 0.002
31              
32             =head1 DESCRIPTION
33              
34             B<IN DEVELOPMENT, DO NOT USE YET>
35              
36             See L<http://aquariumhive.com/> for now.
37              
38             =head1 SUPPORT
39              
40             IRC
41              
42             Join #AquariumHive on irc.freenode.net. Highlight Getty for fast reaction :).
43              
44             Repository
45              
46             https://github.com/homehivelab/aquariumhive
47             Pull request and additional contributors are welcome
48              
49             Issue Tracker
50              
51             https://github.com/homehivelab/aquariumhive/issues
52              
53             =head1 AUTHOR
54              
55             Torsten Raudssus <torsten@raudss.us>
56              
57             =head1 COPYRIGHT AND LICENSE
58              
59             This software is copyright (c) 2014 by Torsten Raudssus.
60              
61             This is free software; you can redistribute it and/or modify it under
62             the same terms as the Perl 5 programming language system itself.
63              
64             =cut