diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-04 13:07:16 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-04 13:07:16 -0400 |
commit | 903b05bdb8c1224deabd9674bb4be1bae5195312 (patch) | |
tree | a9a8d7bf1e8cf44de16981d62bf7b61da1b35c3c /lib/Reply/Util.pm | |
parent | ff42543cec4d93057cdff1ae3a635268d00c0296 (diff) | |
download | reply-903b05bdb8c1224deabd9674bb4be1bae5195312.tar.gz reply-903b05bdb8c1224deabd9674bb4be1bae5195312.zip |
refactor this to avoid some duplication
Diffstat (limited to 'lib/Reply/Util.pm')
-rw-r--r-- | lib/Reply/Util.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/Reply/Util.pm b/lib/Reply/Util.pm new file mode 100644 index 0000000..cb33466 --- /dev/null +++ b/lib/Reply/Util.pm @@ -0,0 +1,17 @@ +package Reply::Util; +use strict; +use warnings; + +use Exporter 'import'; +our @EXPORT_OK = qw($ident_rx $varname_rx $fq_ident_rx $fq_varname_rx); + +# XXX this should be updated for unicode +our $varstart_rx = qr/[A-Z_a-z]/; +our $varcont_rx = qr/[0-9A-Z_a-z]/; +our $ident_rx = qr/${varstart_rx}${varcont_rx}*/; +our $sigil_rx = qr/[\$\@\%\&\*]/; +our $varname_rx = qr/$sigil_rx\s*$ident_rx/; +our $fq_ident_rx = qr/$ident_rx(?:::$varcont_rx+)?/; +our $fq_varname_rx = qr/$varname_rx(?:::$varcont_rx+)?/; + +1; |