Permalink
Browse files

my-scope the Parameter constants.

For one because they should be, for two because it avoids a bug (that
will need some separate tracking down).
  • Loading branch information...
1 parent 290cb0d commit c6b1d85ae05bb0b09218dc1c8309feb72864cdf6 @jnthn jnthn committed Dec 9, 2012
Showing with 17 additions and 18 deletions.
  1. +17 −18 src/core/Parameter.pm
View
@@ -1,22 +1,21 @@
my class Parameter {
- # XXX constant...
- constant $SIG_ELEM_BIND_CAPTURE = 1;
- constant $SIG_ELEM_BIND_PRIVATE_ATTR = 2;
- constant $SIG_ELEM_BIND_PUBLIC_ATTR = 4;
- constant $SIG_ELEM_SLURPY_POS = 8;
- constant $SIG_ELEM_SLURPY_NAMED = 16;
- constant $SIG_ELEM_SLURPY_BLOCK = 32;
- constant $SIG_ELEM_INVOCANT = 64;
- constant $SIG_ELEM_MULTI_INVOCANT = 128;
- constant $SIG_ELEM_IS_RW = 256;
- constant $SIG_ELEM_IS_COPY = 512;
- constant $SIG_ELEM_IS_PARCEL = 1024;
- constant $SIG_ELEM_IS_OPTIONAL = 2048;
- constant $SIG_ELEM_ARRAY_SIGIL = 4096;
- constant $SIG_ELEM_HASH_SIGIL = 8192;
- constant $SIG_ELEM_IS_CAPTURE = 32768;
- constant $SIG_ELEM_UNDEFINED_ONLY = 65536;
- constant $SIG_ELEM_DEFINED_ONLY = 131072;
+ my constant $SIG_ELEM_BIND_CAPTURE = 1;
+ my constant $SIG_ELEM_BIND_PRIVATE_ATTR = 2;
+ my constant $SIG_ELEM_BIND_PUBLIC_ATTR = 4;
+ my constant $SIG_ELEM_SLURPY_POS = 8;
+ my constant $SIG_ELEM_SLURPY_NAMED = 16;
+ my constant $SIG_ELEM_SLURPY_BLOCK = 32;
+ my constant $SIG_ELEM_INVOCANT = 64;
+ my constant $SIG_ELEM_MULTI_INVOCANT = 128;
+ my constant $SIG_ELEM_IS_RW = 256;
+ my constant $SIG_ELEM_IS_COPY = 512;
+ my constant $SIG_ELEM_IS_PARCEL = 1024;
+ my constant $SIG_ELEM_IS_OPTIONAL = 2048;
+ my constant $SIG_ELEM_ARRAY_SIGIL = 4096;
+ my constant $SIG_ELEM_HASH_SIGIL = 8192;
+ my constant $SIG_ELEM_IS_CAPTURE = 32768;
+ my constant $SIG_ELEM_UNDEFINED_ONLY = 65536;
+ my constant $SIG_ELEM_DEFINED_ONLY = 131072;
method name() {
$!variable_name

0 comments on commit c6b1d85

Please sign in to comment.