Mercurial > pub > Impl
view _test/temp.pl @ 200:a9dbe534d236
sync
author | sergey |
---|---|
date | Tue, 24 Apr 2012 02:34:49 +0400 |
parents | 2ffe6f661605 |
children | 68a59c3358ff |
line wrap: on
line source
#!/usr/bin/perl use strict; print join ',', "-some::mod::here" =~ m/^(-)?(\w+(?:::\w+)*)$/;