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