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 (-X 84 (qr 85 DESTROY 86#; 87 88our @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