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 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#; 86 87our @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: 163