diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-11-29 12:11:28 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-11-29 12:11:28 +0000 |
| commit | 9cfe5470b44e33f00045a3b9c3128c6ade6e813f (patch) | |
| tree | 0e081944b8d49604455e28b2dd5fd7555370db7d /lib/overload.pm | |
| parent | 7957ad98fb4b8d8bd28e35e4d1de3a2d6a7acfb9 (diff) | |
| download | perl-9cfe5470b44e33f00045a3b9c3128c6ade6e813f.tar.gz | |
Document the hint constants and where they're used.
p4raw-id: //depot/perl@18217
Diffstat (limited to 'lib/overload.pm')
| -rw-r--r-- | lib/overload.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/overload.pm b/lib/overload.pm index 99af00fadc..81c8598694 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -2,7 +2,7 @@ package overload; our $VERSION = '1.00'; -$overload::hint_bits = 0x20000; +$overload::hint_bits = 0x20000; # HINT_LOCALIZE_HH sub nil {} @@ -108,11 +108,11 @@ sub mycan { # Real can would leave stubs. } %constants = ( - 'integer' => 0x1000, - 'float' => 0x2000, - 'binary' => 0x4000, - 'q' => 0x8000, - 'qr' => 0x10000, + 'integer' => 0x1000, # HINT_NEW_INTEGER + 'float' => 0x2000, # HINT_NEW_FLOAT + 'binary' => 0x4000, # HINT_NEW_BINARY + 'q' => 0x8000, # HINT_NEW_STRING + 'qr' => 0x10000, # HINT_NEW_RE ); %ops = ( with_assign => "+ - * / % ** << >> x .", |