Mercurial > pub > Impl

diff _test/temp.pl @ 198:2ffe6f661605

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 diff
--- a/_test/temp.pl	Thu Apr 19 02:10:02 2012 +0400
+++ b/_test/temp.pl	Fri Apr 20 16:06:36 2012 +0400
@@ -1,29 +1,4 @@
 #!/usr/bin/perl
 use strict;
 
-package Bar;
-
-sub CTOR {
-	shift;
-	warn @_;
-}
-
-package Foo;
-
-use IMPL::declare {
-	require => {
-		TObject => 'IMPL::Object'
-	},
-	base => {
-		TObject => '@_',
-		-Bar => '@_'
-	}
-};
-
-sub hello {
-	return TObject;
-}
-
-package main;
-
-print Foo->new(qw(one for me))->hello;
\ No newline at end of file
+print join ',', "-some::mod::here" =~ m/^(-)?(\w+(?:::\w+)*)$/;
\ No newline at end of file