This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
a90c175db98daa831a0a855b1858cccbae1b5030
[perl5.git] / lib / overload / numbers.pm
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 regen/overload.pl.
12 # Any changes made here will be lost!
13
14 package overload::numbers;
15
16 our @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     (-X
84     (qr
85 #;
86
87 our @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
154     ftest
155     regexp
156 #;
157
158 { my $i = 0; our %names = map { $_ => $i++ } @names }
159
160 { my $i = 0; our %enums = map { $_ => $i++ } @enums }
161
162 # ex: set ro: