File Coverage

blib/lib/Math/Symbolic/ExportConstants.pm
Criterion Covered Total %
statement 90 90 100.0
branch n/a
condition n/a
subroutine 30 30 100.0
pod n/a
total 120 120 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   370 use 5.006;
  23         79  
  23         932  
9 23     23   114 use strict;
  23         45  
  23         1092  
10 23     23   110 use warnings;
  23         60  
  23         900  
11              
12             require Exporter;
13              
14 23     23   133 use constant EULER => 2.718281828459045235360287;
  23         54  
  23         2893  
15 23     23   151 use constant PI => 3.141592653589793238462643;
  23         53  
  23         1581  
16              
17 23     23   119 use constant B_SUM => 0;
  23         39  
  23         1048  
18 23     23   118 use constant B_DIFFERENCE => 1;
  23         36  
  23         951  
19 23     23   123 use constant B_PRODUCT => 2;
  23         46  
  23         978  
20 23     23   119 use constant B_DIVISION => 3;
  23         40  
  23         1066  
21 23     23   110 use constant U_MINUS => 4;
  23         39  
  23         1048  
22 23     23   108 use constant U_P_DERIVATIVE => 5;
  23         44  
  23         1180  
23 23     23   131 use constant U_T_DERIVATIVE => 6;
  23         64  
  23         8005  
24 23     23   144 use constant B_EXP => 7;
  23         62  
  23         1134  
25 23     23   103 use constant B_LOG => 8;
  23         44  
  23         1033  
26 23     23   111 use constant U_SINE => 9;
  23         42  
  23         952  
27 23     23   108 use constant U_COSINE => 10;
  23         37  
  23         1101  
28 23     23   106 use constant U_TANGENT => 11;
  23         42  
  23         9326  
29 23     23   113 use constant U_COTANGENT => 12;
  23         54  
  23         1005  
30 23     23   112 use constant U_ARCSINE => 13;
  23         43  
  23         1259  
31 23     23   130 use constant U_ARCCOSINE => 14;
  23         84  
  23         967  
32 23     23   111 use constant U_ARCTANGENT => 15;
  23         44  
  23         1030  
33 23     23   112 use constant U_ARCCOTANGENT => 16;
  23         39  
  23         1103  
34 23     23   109 use constant U_SINE_H => 17;
  23         46  
  23         940  
35 23     23   198 use constant U_COSINE_H => 18;
  23         50  
  23         1030  
36 23     23   104 use constant U_AREASINE_H => 19;
  23         39  
  23         1052  
37 23     23   104 use constant U_AREACOSINE_H => 20;
  23         330  
  23         1136  
38 23     23   478 use constant B_ARCTANGENT_TWO => 21;
  23         53  
  23         1020  
39              
40 23     23   129 use constant T_OPERATOR => 0;
  23         54  
  23         1015  
41 23     23   110 use constant T_CONSTANT => 1;
  23         40  
  23         15005  
42 23     23   121 use constant T_VARIABLE => 2;
  23         48  
  23         5428  
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.612';
87              
88             1;
89             __END__