|
Lines 40-45
Link Here
|
| 40 |
# Thus inheritance of overload operators becomes possible and transparent for |
40 |
# Thus inheritance of overload operators becomes possible and transparent for |
| 41 |
# our subclasses without the need to repeat the entire overload section there. |
41 |
# our subclasses without the need to repeat the entire overload section there. |
| 42 |
|
42 |
|
|
|
43 |
# https://github.com/ilmari/perl/commit/5e0688b6067afdfb59fdfa9923e658ed40c9f246 |
| 44 |
# We register ops that are not registerable yet, so suppress warnings |
| 45 |
{ no warnings; |
| 43 |
use overload |
46 |
use overload |
| 44 |
'=' => sub { $_[0]->copy(); }, |
47 |
'=' => sub { $_[0]->copy(); }, |
| 45 |
|
48 |
|
|
Lines 151-156
Link Here
|
| 151 |
'""' => sub { $_[0]->bstr(); }, |
154 |
'""' => sub { $_[0]->bstr(); }, |
| 152 |
'0+' => sub { $_[0]->numify(); } |
155 |
'0+' => sub { $_[0]->numify(); } |
| 153 |
; |
156 |
; |
|
|
157 |
} # no warnings scope |
| 154 |
|
158 |
|
| 155 |
############################################################################## |
159 |
############################################################################## |
| 156 |
# global constants, flags and accessory |
160 |
# global constants, flags and accessory |
