diff options
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; |