Mercurial > pub > Impl

annotate lib/IMPL/Config/ReferenceDescriptor.pm @ 423:60c2892a577c ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on base class system
author cin
date Mon, 02 Apr 2018 07:35:23 +0300
parents b0481c071bea
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
1 package IMPL::Config::ReferenceDescriptor;
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
2 use strict;
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
3
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
4 use IMPL::Exception();
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
5 use IMPL::declare {
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
6 base => [
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
7 'IMPL::Object' => undef,
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
8 'IMPL::Config::Descriptor' => undef
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
9 ],
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
10 props => [
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
11 reference => 'ro',
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
12 services => 'ro',
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
13 lazy => 'ro',
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
14 optional => 'ro',
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
15 default => 'ro',
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
16 _name => 'rw'
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
17 ]
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
18 };
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
19
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
20 sub CTOR {
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
21 my ( $this, $ref, %opts ) = @_;
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
22
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
23 $this->reference($ref)
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
24 or die IMPL::InvalidArgumentException->new('ref');
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
25
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
26 $this->lazy( $opts{lazy} ) if $opts{lazy};
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
27 $this->optional( $opts{optional} ) if $opts{optional};
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
28 $this->default( $opts{default} )
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
29 if $opts{optional} and exists $opts{default};
416
cin
parents: 415
diff changeset
30
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
31 $this->_name( 'ref ' . $ref );
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
32 }
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
33
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
34 sub Activate {
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
35 my ( $this, $context ) = @_;
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
36
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
37 my $ref = $this->reference;
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
38 my %opts;
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
39 my $inst;
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
40 if ( $this->optional ) {
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
41 $opts{optional} = 1;
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
42 $opts{default} = $this->default;
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
43 }
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
44
422
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
45 if ( $this->lazy ) {
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
46 my $clone = $context->Clone();
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
47 return sub {
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
48 $clone->Resolve( $ref, %opts );
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
49 };
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
50 }
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
51 else {
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
52 return $context->Resolve( $ref, %opts );
b0481c071bea IMPL::Config::Container tests, YAMLConfiguration now works and tested
cin
parents: 421
diff changeset
53 }
415
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
54 }
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
55
3d24b10dd0d5 working on IMPL::Config::Container
cin
parents: 407
diff changeset
56 1;
416
cin
parents: 415
diff changeset
57
cin
parents: 415
diff changeset
58 __END__
cin
parents: 415
diff changeset
59
cin
parents: 415
diff changeset
60 =pod
cin
parents: 415
diff changeset
61
cin
parents: 415
diff changeset
62 =head1 NAME
cin
parents: 415
diff changeset
63
cin
parents: 415
diff changeset
64 C<IMPL::Config::ReferenceDescriptor> - A descriptor which is points to the other service
cin
parents: 415
diff changeset
65
cin
parents: 415
diff changeset
66 =head1 MEMBERS
cin
parents: 415
diff changeset
67
cin
parents: 415
diff changeset
68 =head2 PROPS
cin
parents: 415
diff changeset
69
cin
parents: 415
diff changeset
70 =head3 reference
cin
parents: 415
diff changeset
71
cin
parents: 415
diff changeset
72 =head3 lazy
cin
parents: 415
diff changeset
73
cin
parents: 415
diff changeset
74 =head3 optional
cin
parents: 415
diff changeset
75
cin
parents: 415
diff changeset
76 =head3 default
cin
parents: 415
diff changeset
77
cin
parents: 415
diff changeset
78 =head2 METHODS
cin
parents: 415
diff changeset
79
cin
parents: 415
diff changeset
80 =head3 CTOR($ref, %opts)
cin
parents: 415
diff changeset
81
cin
parents: 415
diff changeset
82 =head3 Activate($context)
cin
parents: 415
diff changeset
83
cin
parents: 415
diff changeset
84 Returns a result of the activation of the service specified by the C<reference> property.
cin
parents: 415
diff changeset
85
cin
parents: 415
diff changeset
86 If the reference is lazy the method returns a closure.The C<$context> will be cloned and the clone will be used to create the closure.
cin
parents: 415
diff changeset
87 =cut