This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use of SV* instead of message, msglen, utf8 to contain error message
[perl5.git] / lib / overload / numbers.pm
CommitLineData
e46c382e
YK
1# -*- buffer-read-only: t -*-
2#
3# lib/overload/numbers.pm
4#
5# Copyright (C) 2008 by Larry Wall and others
6#
7# You may distribute under the terms of either the GNU General Public
8# License or the Artistic License, as specified in the README file.
9#
10# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
11# This file is built by overload.pl
12#
13
14package overload::numbers;
15
16our @names = qw#
17 ()
18 (${}
19 (@{}
20 (%{}
21 (*{}
22 (&{}
23 (++
24 (--
25 (bool
26 (0+
27 (""
28 (!
29 (=
30 (abs
31 (neg
32 (<>
33 (int
34 (<
35 (<=
36 (>
37 (>=
38 (==
39 (!=
40 (lt
41 (le
42 (gt
43 (ge
44 (eq
45 (ne
46 (nomethod
47 (+
48 (+=
49 (-
50 (-=
51 (*
52 (*=
53 (/
54 (/=
55 (%
56 (%=
57 (**
58 (**=
59 (<<
60 (<<=
61 (>>
62 (>>=
63 (&
64 (&=
65 (|
66 (|=
67 (^
68 (^=
69 (<=>
70 (cmp
71 (~
72 (atan2
73 (cos
74 (sin
75 (exp
76 (log
77 (sqrt
78 (x
79 (x=
80 (.
81 (.=
82 (~~
9846fe22 83 (-X
e46c382e
YK
84 DESTROY
85#;
86
87our @enums = qw#
88 fallback
89 to_sv
90 to_av
91 to_hv
92 to_gv
93 to_cv
94 inc
95 dec
96 bool_
97 numer
98 string
99 not
100 copy
101 abs
102 neg
103 iter
104 int
105 lt
106 le
107 gt
108 ge
109 eq
110 ne
111 slt
112 sle
113 sgt
114 sge
115 seq
116 sne
117 nomethod
118 add
119 add_ass
120 subtr
121 subtr_ass
122 mult
123 mult_ass
124 div
125 div_ass
126 modulo
127 modulo_ass
128 pow
129 pow_ass
130 lshift
131 lshift_ass
132 rshift
133 rshift_ass
134 band
135 band_ass
136 bor
137 bor_ass
138 bxor
139 bxor_ass
140 ncmp
141 scmp
142 compl
143 atan2
144 cos
145 sin
146 exp
147 log
148 sqrt
149 repeat
150 repeat_ass
151 concat
152 concat_ass
153 smart
9846fe22 154 ftest
e46c382e
YK
155 DESTROY
156#;
157
d87d3eed 158{ my $i = 0; our %names = map { $_ => $i++ } @names }
e46c382e 159
d87d3eed 160{ my $i = 0; our %enums = map { $_ => $i++ } @enums }
e46c382e 161