Mercurial > pub > Impl

comparison _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
comparison
equal deleted inserted replaced
197:6b1dda998839 198:2ffe6f661605
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 use strict; 2 use strict;
3 3
4 package Bar; 4 print join ',', "-some::mod::here" =~ m/^(-)?(\w+(?:::\w+)*)$/;
5
6 sub CTOR {
7 shift;
8 warn @_;
9 }
10
11 package Foo;
12
13 use IMPL::declare {
14 require => {
15 TObject => 'IMPL::Object'
16 },
17 base => {
18 TObject => '@_',
19 -Bar => '@_'
20 }
21 };
22
23 sub hello {
24 return TObject;
25 }
26
27 package main;
28
29 print Foo->new(qw(one for me))->hello;