|
415
|
1 package IMPL::Config::ReferenceDescriptor;
|
|
|
2 use strict;
|
|
|
3
|
|
|
4 use IMPL::Exception();
|
|
|
5 use IMPL::declare {
|
|
|
6 base => [
|
|
|
7 'IMPL::Object' => undef,
|
|
|
8 'IMPL::Config::Descriptor' => undef
|
|
|
9 ],
|
|
|
10 props => [
|
|
|
11 reference => 'ro',
|
|
|
12 services => 'ro',
|
|
|
13 lazy => 'ro',
|
|
|
14 optional => 'ro',
|
|
|
15 default => 'ro',
|
|
|
16 _name => 'rw'
|
|
|
17 ]
|
|
|
18 };
|
|
|
19
|
|
|
20 sub CTOR {
|
|
|
21 my ( $this, $ref, %opts ) = @_;
|
|
|
22
|
|
|
23 $this->reference($ref)
|
|
|
24 or die IMPL::InvalidArgumentException->new('ref');
|
|
|
25
|
|
416
|
26 $this->lazy( $opts{lazy} ) if $opts{lazy};
|
|
|
27 $this->optional( $opts{optional} ) if $opts{optional};
|
|
|
28 $this->default( $opts{default} )
|
|
|
29 if $opts{optional} and exists $opts{default};
|
|
|
30
|
|
415
|
31 $this->_name( 'ref ' . $ref );
|
|
|
32 }
|
|
|
33
|
|
|
34 sub Activate {
|
|
|
35 my ( $this, $context ) = @_;
|
|
|
36
|
|
417
|
37 $context->EnterScope( $this->_name, $this->services );
|
|
415
|
38
|
|
|
39 my $ref = $this->reference;
|
|
|
40 my %opts;
|
|
421
|
41 my $inst;
|
|
415
|
42 $opts{default} = $this->default
|
|
|
43 if $this->optional;
|
|
|
44
|
|
|
45 if ( $this->lazy ) {
|
|
|
46 my $clone = $context->Clone();
|
|
421
|
47 $inst = sub {
|
|
415
|
48 $clone->Resolve( $ref, %opts );
|
|
|
49 };
|
|
|
50 }
|
|
|
51 else {
|
|
421
|
52 $inst = $context->Resolve( $ref, %opts );
|
|
415
|
53 }
|
|
|
54
|
|
417
|
55 $context->LeaveScope();
|
|
421
|
56 return $inst;
|
|
415
|
57 }
|
|
|
58
|
|
|
59 1;
|
|
416
|
60
|
|
|
61 __END__
|
|
|
62
|
|
|
63 =pod
|
|
|
64
|
|
|
65 =head1 NAME
|
|
|
66
|
|
|
67 C<IMPL::Config::ReferenceDescriptor> - A descriptor which is points to the other service
|
|
|
68
|
|
|
69 =head1 MEMBERS
|
|
|
70
|
|
|
71 =head2 PROPS
|
|
|
72
|
|
|
73 =head3 reference
|
|
|
74
|
|
|
75 =head3 lazy
|
|
|
76
|
|
|
77 =head3 optional
|
|
|
78
|
|
|
79 =head3 default
|
|
|
80
|
|
|
81 =head2 METHODS
|
|
|
82
|
|
|
83 =head3 CTOR($ref, %opts)
|
|
|
84
|
|
|
85 =head3 Activate($context)
|
|
|
86
|
|
|
87 Returns a result of the activation of the service specified by the C<reference> property.
|
|
|
88
|
|
|
89 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.
|
|
|
90 =cut
|
