Mercurial > pub > Impl

annotate Lib/IMPL/Object/InlineFactory.pm @ 384:4edd36025051

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM schema refactoring
author cin
date Mon, 10 Feb 2014 17:41:34 +0400
parents f2a6bc5f3184
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
284
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
1 package IMPL::Object::InlineFactory;
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
2 use strict;
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
3 use Carp qw(croak);
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
4
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
5 sub new {
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
6 my $self = shift;
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
7 if(ref $self) {
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
8 return &$$self(@_);
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
9 } else {
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
10 my $factory = shift;
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
11
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
12 croak "A code reference is required"
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
13 unless ref $factory eq 'CODE';
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
14
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
15 return bless \$factory, $self;
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
16 }
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
17 }
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
18
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
19 1;
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
20
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
21 __END__
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
22
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
23 =pod
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
24
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
25 =head1 NAME
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
26
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
27 C<IMPL::Object::InlineFactory> - реализация фабрики на основе процедуры.
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
28
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
29 =head1 SYNOPSIS
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
30
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
31 =begin code
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
32
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
33 use IMPL::require {
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
34 InlineFactory => 'IMPL::Object::InlineFactory',
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
35 Foo => 'My::App::Foo'
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
36 };
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
37
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
38 my $factory = InlineFactory->new(sub { Foo->new(mode => 'direct', @_) });
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
39
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
40 my $obj = $factory->new(timeout => 10); # Foo->new(mode => 'direct', timeout => 10);
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
41
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
42 =end code
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
43
f2a6bc5f3184 +IMPL::Object::InlineFactory: implement object factory as subroutine
sergey
parents:
diff changeset
44 =cut