File Coverage

fundamentalUnit.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition 1 3 33.3
subroutine 7 7 100.0
pod n/a
total 29 31 93.5


line stmt bran cond sub pod time code
1             package FundamentalUnit;
2              
3 1     1   8063 use strict;
  1         2  
  1         29  
4 1     1   5 use warnings;
  1         1  
  1         23  
5              
6 1     1   370 use unitConverter;
  1         2  
  1         23  
7 1     1   6 use unit;
  1         3  
  1         23  
8              
9             # heritage
10 1     1   5 use base qw( Unit );
  1         2  
  1         330  
11              
12             sub new {
13 8     8   301 my ( $class ) = @_;
14 8   33     30 $class = ref($class) || $class;
15 8         26 my $this = $class->SUPER::new();
16 8         10 bless($this, $class);
17 8         15 return $this;
18             }
19              
20             sub toBase {
21 22     22   54 return UnitConverter->identity;
22             }
23              
24             =head1 NAME
25              
26             FundamentalUnit - representation of an unit defined by itself
27              
28             =head1 DESCRIPTION
29              
30             This module maps a conceptual class that represents an unit defined by itself.
31              
32             =head1 AUTHOR
33              
34             Samuel Andres
35              
36             =head1 LICENSE
37              
38             UnLicense
39              
40             =cut
41              
42             1;