view _test/temp.pl @ 198:2ffe6f661605

Implemented IMPL::Web::Handler::RestController fixes in IMPL::Serialization completed IMPL::Web::Application::RestResource added IMPL::Web::Handler::JSONView added IMPL::Web::RestContract
author cin
date Fri, 20 Apr 2012 16:06:36 +0400
parents 6b1dda998839
children 68a59c3358ff
line wrap: on
line source

#!/usr/bin/perl
use strict;

print join ',', "-some::mod::here" =~ m/^(-)?(\w+(?:::\w+)*)$/;