File Coverage

blib/lib/Math/Symbolic/ExportConstants.pm
Criterion Covered Total %
statement 89 89 100.0
branch n/a
condition n/a
subroutine 30 30 100.0
pod n/a
total 119 119 100.0


line stmt bran cond sub pod time code
1              
2             =encoding utf8
3              
4             =cut
5              
6             package Math::Symbolic::ExportConstants;
7              
8 23     23   428 use 5.006;
  23         87  
9 23     23   130 use strict;
  23         60  
  23         718  
10 23     23   101 use warnings;
  23         42  
  23         1812  
11              
12             require Exporter;
13              
14 23     23   170 use constant EULER => 2.718281828459045235360287;
  23         72  
  23         2743  
15 23     23   161 use constant PI => 3.141592653589793238462643;
  23         42  
  23         1346  
16              
17 23     23   110 use constant B_SUM => 0;
  23         67  
  23         1103  
18 23     23   126 use constant B_DIFFERENCE => 1;
  23         55  
  23         1196  
19 23     23   146 use constant B_PRODUCT => 2;
  23         65  
  23         1258  
20 23     23   107 use constant B_DIVISION => 3;
  23         41  
  23         1331  
21 23     23   125 use constant U_MINUS => 4;
  23         127  
  23         1327  
22 23     23   195 use constant U_P_DERIVATIVE => 5;
  23         53  
  23         1213  
23 23     23   120 use constant U_T_DERIVATIVE => 6;
  23         53  
  23         1189  
24 23     23   114 use constant B_EXP => 7;
  23         52  
  23         1050  
25 23     23   133 use constant B_LOG => 8;
  23         50  
  23         1021  
26 23     23   121 use constant U_SINE => 9;
  23         38  
  23         1074  
27 23     23   114 use constant U_COSINE => 10;
  23         185  
  23         1212  
28 23     23   131 use constant U_TANGENT => 11;
  23         80  
  23         1004  
29 23     23   107 use constant U_COTANGENT => 12;
  23         59  
  23         1153  
30 23     23   129 use constant U_ARCSINE => 13;
  23         40  
  23         992  
31 23     23   107 use constant U_ARCCOSINE => 14;
  23         32  
  23         1002  
32 23     23   98 use constant U_ARCTANGENT => 15;
  23         41  
  23         999  
33 23     23   101 use constant U_ARCCOTANGENT => 16;
  23         41  
  23         1117  
34 23     23   112 use constant U_SINE_H => 17;
  23         68  
  23         1167  
35 23     23   145 use constant U_COSINE_H => 18;
  23         40  
  23         1140  
36 23     23   275 use constant U_AREASINE_H => 19;
  23         159  
  23         1112  
37 23     23   202 use constant U_AREACOSINE_H => 20;
  23         50  
  23         4125  
38 23     23   114 use constant B_ARCTANGENT_TWO => 21;
  23         37  
  23         1002  
39              
40 23     23   97 use constant T_OPERATOR => 0;
  23         37  
  23         1633  
41 23     23   104 use constant T_CONSTANT => 1;
  23         64  
  23         944  
42 23     23   126 use constant T_VARIABLE => 2;
  23         39  
  23         5018  
43              
44             our @ISA = qw(Exporter);
45              
46             our %EXPORT_TAGS = (
47             'all' => [
48             qw(
49             EULER
50             PI
51              
52             B_SUM
53             B_DIFFERENCE
54             B_PRODUCT
55             B_DIVISION
56             B_EXP
57             B_LOG
58             U_MINUS
59             U_P_DERIVATIVE
60             U_T_DERIVATIVE
61             U_SINE
62             U_COSINE
63             U_TANGENT
64             U_COTANGENT
65             U_ARCSINE
66             U_ARCCOSINE
67             U_ARCTANGENT
68             U_ARCCOTANGENT
69             U_SINE_H
70             U_COSINE_H
71             U_AREASINE_H
72             U_AREACOSINE_H
73             B_ARCTANGENT_TWO
74              
75             T_OPERATOR
76             T_CONSTANT
77             T_VARIABLE
78             )
79             ]
80             );
81              
82             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
83              
84             our @EXPORT = qw(
85             );
86             our $VERSION = '0.613';
87              
88             1;
89             __END__