Mercurial > pub > Impl

annotate _test/temp.pl @ 427:09e0086a82a7 ref20150831 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author cin
date Tue, 15 May 2018 00:51:33 +0300
parents eed50c01e758 c27434cdd611
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
210
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
1 #!/usr/bin/perl
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
2 use strict;
423
60c2892a577c working on base class system
cin
parents: 422
diff changeset
3 use v5.10;
412
30e8c6a74937 working on di container (role based registrations)
cin
parents: 411
diff changeset
4 use Carp;
30e8c6a74937 working on di container (role based registrations)
cin
parents: 411
diff changeset
5 use Time::HiRes qw(gettimeofday tv_interval);
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 414
diff changeset
6 use Scalar::Util qw(blessed refaddr);
418
cin
parents: 417
diff changeset
7 use YAML::XS qw(Dump Load);
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 419
diff changeset
8 use Data::Dumper;
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 419
diff changeset
9 use URI;
418
cin
parents: 417
diff changeset
10
423
60c2892a577c working on base class system
cin
parents: 422
diff changeset
11 package Foo;
424
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
12 use base qw(IMPL::Object::_Base);
417
3ed0c58e9da3 working on di container, tests
cin
parents: 415
diff changeset
13
424
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
14 sub new {
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
15 my $instance = bless {}, shift;
425
cin
parents: 424
diff changeset
16 $instance->__construct(@_);
424
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
17 return $instance;
423
60c2892a577c working on base class system
cin
parents: 422
diff changeset
18 }
60c2892a577c working on base class system
cin
parents: 422
diff changeset
19
60c2892a577c working on base class system
cin
parents: 422
diff changeset
20 sub CTOR {
425
cin
parents: 424
diff changeset
21 say "Foo @_";
423
60c2892a577c working on base class system
cin
parents: 422
diff changeset
22 }
60c2892a577c working on base class system
cin
parents: 422
diff changeset
23
424
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
24 package Foo2;
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
25 use base qw(Foo);
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
26
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
27 sub CTOR {
425
cin
parents: 424
diff changeset
28 say "Foo2 @_";
cin
parents: 424
diff changeset
29 }
cin
parents: 424
diff changeset
30
cin
parents: 424
diff changeset
31 package Bar;
cin
parents: 424
diff changeset
32
cin
parents: 424
diff changeset
33 sub CTOR {
cin
parents: 424
diff changeset
34 say "Bar";
cin
parents: 424
diff changeset
35 }
cin
parents: 424
diff changeset
36
cin
parents: 424
diff changeset
37 package Baz;
cin
parents: 424
diff changeset
38 use base qw(Foo2 Bar);
cin
parents: 424
diff changeset
39
cin
parents: 424
diff changeset
40 sub CTOR {
cin
parents: 424
diff changeset
41 say "Baz";
cin
parents: 424
diff changeset
42 }
cin
parents: 424
diff changeset
43
cin
parents: 424
diff changeset
44
423
60c2892a577c working on base class system
cin
parents: 422
diff changeset
45
424
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
46 package main;
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
47
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
48 my $t = [gettimeofday];
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
49
425
cin
parents: 424
diff changeset
50 new Baz("-hi!");
423
60c2892a577c working on base class system
cin
parents: 422
diff changeset
51
424
87af445663d7 IMPL::Object::_Base
cin
parents: 423
diff changeset
52 say tv_interval($t);
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 419
diff changeset
53
407
c6e90e02dd17 renamed Lib->lib
cin
parents: 406
diff changeset
54 1;