|
Apache/2.2.15 (CentOS) Linux obd60-6c49958d75-2q7cw 5.4.0-174-generic #193-Ubuntu SMP Thu Mar 7 14:29:28 UTC 2024 x86_64 uid=48(apache) gid=48(apache) groups=48(apache) server ip : 172.67.192.52 | your ip : 10.244.126.0 safemode OFF > / usr / share / perl5 / overload / |
| Filename | /usr/share/perl5/overload/numbers.pm |
| Size | 1.7 kb |
| Permission | rw-r--r-- |
| Owner | apache |
| Create time | 23-Dec-2025 17:41 |
| Last modified | 22-Mar-2017 16:32 |
| Last accessed | 22-Apr-2026 06:01 |
| Actions | edit | rename | delete | download (gzip) |
| View | text | code | image |
# -*- buffer-read-only: t -*-
#
# lib/overload/numbers.pm
#
# Copyright (C) 2008 by Larry Wall and others
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the README file.
#
# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
# This file is built by overload.pl
#
package overload::numbers;
our @names = qw#
()
(${}
(@{}
(%{}
(*{}
(&{}
(++
(--
(bool
(0+
(""
(!
(=
(abs
(neg
(<>
(int
(<
(<=
(>
(>=
(==
(!=
(lt
(le
(gt
(ge
(eq
(ne
(nomethod
(+
(+=
(-
(-=
(*
(*=
(/
(/=
(%
(%=
(**
(**=
(<<
(<<=
(>>
(>>=
(&
(&=
(|
(|=
(^
(^=
(<=>
(cmp
(~
(atan2
(cos
(sin
(exp
(log
(sqrt
(x
(x=
(.
(.=
(~~
DESTROY
#;
our @enums = qw#
fallback
to_sv
to_av
to_hv
to_gv
to_cv
inc
dec
bool_
numer
string
not
copy
abs
neg
iter
int
lt
le
gt
ge
eq
ne
slt
sle
sgt
sge
seq
sne
nomethod
add
add_ass
subtr
subtr_ass
mult
mult_ass
div
div_ass
modulo
modulo_ass
pow
pow_ass
lshift
lshift_ass
rshift
rshift_ass
band
band_ass
bor
bor_ass
bxor
bxor_ass
ncmp
scmp
compl
atan2
cos
sin
exp
log
sqrt
repeat
repeat_ass
concat
concat_ass
smart
DESTROY
#;
{ my $i = 0; our %names = map { $_ => $i++ } @names }
{ my $i = 0; our %enums = map { $_ => $i++ } @enums }
#
# lib/overload/numbers.pm
#
# Copyright (C) 2008 by Larry Wall and others
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the README file.
#
# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
# This file is built by overload.pl
#
package overload::numbers;
our @names = qw#
()
(${}
(@{}
(%{}
(*{}
(&{}
(++
(--
(bool
(0+
(""
(!
(=
(abs
(neg
(<>
(int
(<
(<=
(>
(>=
(==
(!=
(lt
(le
(gt
(ge
(eq
(ne
(nomethod
(+
(+=
(-
(-=
(*
(*=
(/
(/=
(%
(%=
(**
(**=
(<<
(<<=
(>>
(>>=
(&
(&=
(|
(|=
(^
(^=
(<=>
(cmp
(~
(atan2
(cos
(sin
(exp
(log
(sqrt
(x
(x=
(.
(.=
(~~
DESTROY
#;
our @enums = qw#
fallback
to_sv
to_av
to_hv
to_gv
to_cv
inc
dec
bool_
numer
string
not
copy
abs
neg
iter
int
lt
le
gt
ge
eq
ne
slt
sle
sgt
sge
seq
sne
nomethod
add
add_ass
subtr
subtr_ass
mult
mult_ass
div
div_ass
modulo
modulo_ass
pow
pow_ass
lshift
lshift_ass
rshift
rshift_ass
band
band_ass
bor
bor_ass
bxor
bxor_ass
ncmp
scmp
compl
atan2
cos
sin
exp
log
sqrt
repeat
repeat_ass
concat
concat_ass
smart
DESTROY
#;
{ my $i = 0; our %names = map { $_ => $i++ } @names }
{ my $i = 0; our %enums = map { $_ => $i++ } @enums }