File Coverage

blib/lib/Math/Business/ADX.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Math::Business::ADX;
2              
3 1     1   3758 use strict;
  1         6  
  1         20  
4 1     1   3 use warnings;
  1         2  
  1         18  
5 1     1   3 use Carp;
  1         1  
  1         44  
6              
7 1     1   4 use base 'Math::Business::DMI';
  1         2  
  1         360  
8              
9             1;
10              
11             sub set_days {
12 1     1 0 2 my $this = shift;
13              
14 1         6 $this->SUPER::set_days(@_);
15 1         2 $this->{tag} = "ADX($this->{days})";
16             }
17              
18             __END__