This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add new overloading type.
[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 (~~
83 DESTROY
84#;
85
86our @enums = qw#
87 fallback
88 to_sv
89 to_av
90 to_hv
91 to_gv
92 to_cv
93 inc
94 dec
95 bool_
96 numer
97 string
98 not
99 copy
100 abs
101 neg
102 iter
103 int
104 lt
105 le
106 gt
107 ge
108 eq
109 ne
110 slt
111 sle
112 sgt
113 sge
114 seq
115 sne
116 nomethod
117 add
118 add_ass
119 subtr
120 subtr_ass
121 mult
122 mult_ass
123 div
124 div_ass
125 modulo
126 modulo_ass
127 pow
128 pow_ass
129 lshift
130 lshift_ass
131 rshift
132 rshift_ass
133 band
134 band_ass
135 bor
136 bor_ass
137 bxor
138 bxor_ass
139 ncmp
140 scmp
141 compl
142 atan2
143 cos
144 sin
145 exp
146 log
147 sqrt
148 repeat
149 repeat_ass
150 concat
151 concat_ass
152 smart
153 DESTROY
154#;
155
d87d3eed 156{ my $i = 0; our %names = map { $_ => $i++ } @names }
e46c382e 157
d87d3eed 158{ my $i = 0; our %enums = map { $_ => $i++ } @enums }
e46c382e 159