This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
charnames: Explicitly return undef for empty input
[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     (|.=
71     (^
72     (^=
73     (^.
74     (^.=
75     (<=>
76     (cmp
77     (~
78     (~.
79     (atan2
80     (cos
81     (sin
82     (exp
83     (log
84     (sqrt
85     (x
86     (x=
87     (.
88     (.=
89     (~~
90     (-X
91     (qr
92 #;
93
94 our @enums = qw#
95     fallback
96     to_sv
97     to_av
98     to_hv
99     to_gv
100     to_cv
101     inc
102     dec
103     bool_
104     numer
105     string
106     not
107     copy
108     abs
109     neg
110     iter
111     int
112     lt
113     le
114     gt
115     ge
116     eq
117     ne
118     slt
119     sle
120     sgt
121     sge
122     seq
123     sne
124     nomethod
125     add
126     add_ass
127     subtr
128     subtr_ass
129     mult
130     mult_ass
131     div
132     div_ass
133     modulo
134     modulo_ass
135     pow
136     pow_ass
137     lshift
138     lshift_ass
139     rshift
140     rshift_ass
141     band
142     band_ass
143     sband
144     sband_ass
145     bor
146     bor_ass
147     sbor
148     sbor_ass
149     bxor
150     bxor_ass
151     sbxor
152     sbxor_ass
153     ncmp
154     scmp
155     compl
156     scompl
157     atan2
158     cos
159     sin
160     exp
161     log
162     sqrt
163     repeat
164     repeat_ass
165     concat
166     concat_ass
167     smart
168     ftest
169     regexp
170 #;
171
172 { my $i = 0; our %names = map { $_ => $i++ } @names }
173
174 { my $i = 0; our %enums = map { $_ => $i++ } @enums }
175
176 # ex: set ro: