--- a/.includepath	Mon Aug 31 20:22:16 2015 +0300
+++ b/.includepath	Fri Sep 04 19:40:23 2015 +0300
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <includepath>
-  <includepathentry path="${resource_loc:/Impl/Lib}" />
+  <includepathentry path="${resource_loc:/Impl/lib}" />
 </includepath>
 

--- a/Lib/IMPL.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,15 +0,0 @@
-package IMPL;
-use strict;
-
-use IMPL::_core qw(setDebug);
-use IMPL::_core::version;
-
-sub import {
-    my ($opts) = @_;
-    
-    if (ref $opts eq 'HASH') {
-        setDebug($$opts{Debug}) if exists $$opts{Debug};
-    }
-}
-
-1;

--- a/Lib/IMPL/AppException.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,144 +0,0 @@
-package IMPL::AppException;
-use strict;
-use mro 'c3';
-use overload
-    '""' => 'ToString',
-    'bool'     =>   sub { return 1; },
-    'fallback' => 1;
-
-use Carp qw(longmess shortmess);
-use Scalar::Util qw(refaddr);
-
-use IMPL::Const qw(:prop);
-use IMPL::Resources::Strings {
-	message => "Application exception"
-};
-
-use IMPL::declare {
-    base => [
-        'IMPL::Object' => undef
-    ],
-    props => [
-        source => PROP_RO,
-        callStack => PROP_RO,
-    ]
-};
-
-sub new {
-	my $self = shift;
-	
-	my $instance = $self->next::method(@_);
-	
-	$instance->source(shortmess);
-	$instance->callStack(longmess);
-    
-    return $instance;
-}
-
-sub ToString {
-	my ($this) = @_;
-	
-	return join("\n", $this->message, $this->callStack);
-}
-
-sub throw {
-	my $self = shift;
-	
-	die $self->new(@_);
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::AppException> - исключение приложения.
-
-=head1 SYNOPSIS
-
-=begin code
-
-package MyException;
-use strict;
-
-use IMPL::Const qw(:prop);
-use IMPL::declare {
-    base => [
-        'IMPL::AppException' => undef
-    ],
-    props => [
-        level => PROP_RO
-    ] 
-};
-
-use IMPL::Resources::Strings {
-    message => "Something wrong at level %level%"
-};
-
-sub CTOR {
-    my ($this,$level) = @_;
-    
-    $this->level($level);
-}
-
-=end code
-
-=head1 DESCRIPTION
-
-Для описания собственных исключений в качестве базового класса должен
-использоваться C<IMPL::AppException> поскольку он позволяет использовать
-C<IMPL::declare> и объявлять свойства.
-
-C<IMPL::Exception> также является классом для исключений, однако поскольку
-он используется в базовых механизмах библиотеки, то в нем не реализованы
-механизмы для описания свойсвт.
-
-Исключение имеет свойство C<message> которое возвращает текст с описанием
-проблемы, данное свойство можно реализовать с использованием
-C<IMPL::Resources::Strings> для реализации поддержки нескольких языков.
-
-Особенностью тсключений также является то, что при их создании автоматически
-фиксируется место, где оно было создано и свойства C<source> и C<callStack>
-заполняются автоматически.
-
-Для исключений переопределены операторы приведения к строке и к булевому
-значению.
-
-=head1 MEMBERS
-
-=head2 C<[op]new(@args)>
-
-Оператор создающий новый экземпляр исключения, сначала создает экземпляр
-исключения, затем заполняет свойства C<source>, C<callStack>.
-
-=head2 C<[op]throw(@args)>
-
-Создает объект исключения и бросает его.
-
-=begin code
-
-throw MyException(10);
-MyException->throw(10); # ditto
-
-=end code
-
-=head2 C<[get]source>
-
-Строка с описанием в каком файле и где произошло исключение. см. C<Carp>
-
-=head2 C<[get]callStack>
-
-Строка со стеком вызовов в момент возникновения исключения. см. C<Carp>
-
-=head2 C<[get]message>
-
-Возвращает описание исключения.
-
-=head2 C<ToString()>
-
-Возвращает текстовое представление, как правило это C<message> и C<callStack>.
-
-=cut
\ No newline at end of file

--- a/Lib/IMPL/Class/AccessorPropertyInfo.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,13 +0,0 @@
-package IMPL::Class::AccessorPropertyInfo;
-use strict;
-
-BEGIN {
-    our @ISA = qw(IMPL::Class::PropertyInfo);
-}
-require IMPL::Class::PropertyInfo;
-
-our %CTOR = ('IMPL::Class::PropertyInfo' => '@_');
-
-__PACKAGE__->mk_accessors(qw(fieldName));
-
-1;
\ No newline at end of file

--- a/Lib/IMPL/Class/DirectPropertyInfo.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,10 +0,0 @@
-package IMPL::Class::DirectPropertyInfo;
-use strict;
-
-use parent 'IMPL::Class::PropertyInfo';
-our %CTOR = ('IMPL::Class::PropertyInfo' => '@_');
-
-__PACKAGE__->mk_accessors(qw(fieldName directAccess));
-	
-
-1;
\ No newline at end of file

--- a/Lib/IMPL/Class/Member.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,38 +0,0 @@
-package IMPL::Class::Member;
-use strict;
-use parent qw(Exporter);
-our @EXPORT = qw(&public &private &protected &_direct);
-
-
-use IMPL::Const qw(:access);
-
-require IMPL::Class::MemberInfo;
-
-sub public($) {
-	my $info = shift;
-    $info->{access} = ACCESS_PUBLIC;
-    my $implementor = delete $info->{implementor};
-    $implementor->Implement($info);
-}
-
-sub private($) {
-    my $info = shift;
-    $info->{access} = ACCESS_PRIVATE;
-    my $implementor = delete $info->{implementor};
-    $implementor->Implement($info);
-}
-
-sub protected($) {
-    my $info = shift;
-    $info->{access} = ACCESS_PROTECTED;
-    my $implementor = delete $info->{implementor};
-    $implementor->Implement($info);
-}
-
-sub _direct($) {
-    my $info = shift;
-    $info->{direct} = 1;
-    return $info;
-}
-
-1;

--- a/Lib/IMPL/Class/MemberInfo.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,84 +0,0 @@
-package IMPL::Class::MemberInfo;
-use strict;
-
-use IMPL::Const qw(:prop);
-BEGIN {
-    our @ISA = qw(IMPL::Object::Accessor);
-}
-
-require IMPL::Object::Accessor;
-require IMPL::Exception;
-
-# использовать ClassPropertyImplementor не получится, поскольку он будет
-# создавать экземпляры PropertyInfo, который не доописан (в нем не определены
-# члены)
-__PACKAGE__->mk_accessors(
-    qw(
-        name
-        access
-        class
-        attributes
-    )
-);
-
-our %CTOR = (
-    'IMPL::Object::Accessor' => undef
-);
-
-sub CTOR {
-    my $this = shift;
-
-    die new IMPL::Exception('The name is required for the member') unless $this->name;
-    die new IMPL::Exception('The class is required for the member') unless $this->class;
-    
-    $this->attributes({}) unless defined $this->attributes;
-    $this->access(3) unless $this->access;
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Class::MemberInfo> - информация о члене класса.
-
-=head1 DESCRIPTION
-
-Данный класс является базовым для таких классов как C<IMPL::Class::PropertyInfo>, C<IMPL::Class::MethodInfo> и 
-предназначен для хренения метаданных.
-
-Данный класс наследуется от C<IMPL::Object::Accessor> и не содержит в себе метаданных о своих членах.
-
-=head1 MEMBERS
-
-=over
-
-=item C<[get,set] name>
-
-Имя члена.
-
-=item C<[get,set] access>
-
-Default public.
-
-Атрибут доступа ( public | private | protected )
-
-=item C<[get,set] class>
-
-Класс владелец
-        
-=item C<[get,set] attributes>
-
-Дополнительные атрибуты
-
-=item C<Implement()>
-
-При реализации собственного субкласса, данный метод может быть переопределен для
-реализации дополнительной обработки (например, создание методов доступа для свойств).
-
-=back
-
-=cut

--- a/Lib/IMPL/Class/Meta.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,344 +0,0 @@
-package IMPL::Class::Meta;
-use strict;
-
-use Carp qw(carp confess);
-use IMPL::clone qw(clone);
-
-my %class_meta;
-my %class_data;
-
-sub SetMeta {
-    my ($class,$meta_data) = @_;
-    $class = ref $class || $class;
-    
-    # тут нельзя использовать стандартное исключение, поскольку для него используется
-    # класс IMPL::Object::Accessor, который наследуется от текущего класса
-    confess "The meta_data parameter should be an object" if not ref $meta_data;
-    
-    push @{$class_meta{$class}{ref $meta_data}},$meta_data;
-}
-
-sub set_meta {
-	goto &SetMeta;
-}
-
-sub GetMeta {
-    my ($class,$meta_class,$predicate,$deep) = @_;
-    $class = ref $class if ref $class;
-    no strict 'refs';
-    my @result;
-    
-    if ($predicate) {
-        push @result,grep( &$predicate($_), map( @{$class_meta{$class}{$_}}, grep( $_->isa($meta_class), keys %{$class_meta{$class} || {}} ) ) );
-    } else {
-        push @result, map( @{$class_meta{$class}{$_} || []}, grep( $_->isa($meta_class), keys %{$class_meta{$class} || {}} ) );
-    }
-    
-    if ($deep) {
-        push @result, map { $_->can('GetMeta') ? $_->GetMeta($meta_class,$predicate,$deep) : () } @{$class.'::ISA'};
-    }
-    
-    wantarray ? @result : \@result;
-}
-
-sub get_meta {
-	goto &GetMeta;
-}
-
-sub class_data {
-    my $class = shift;
-    $class = ref $class || $class;
-    
-    carp 'The method is obsolete, use static_accessor($name,$value,\'clone\') instead';
-    
-    if (@_ > 1) {
-        my ($name,$value) = @_;
-        return $class_data{$class}{$name} = $value;
-    } else {
-        my ($name) = @_;
-        
-        if( exists $class_data{$class}{$name} ) {
-            $class_data{$class}{$name};
-        } else {
-            if ( my $value = $class->_find_class_data($name) ) {
-                $class_data{$class}{$name} = clone($value);
-            } else {
-                undef;
-            }
-        }
-    }
-}
-
-sub static_accessor {
-    my ($class,$name,$value,$inherit) = @_;
-    
-    $inherit ||= 'inherit';
-    
-    my $method = "static_accessor_$inherit";
-    
-    return $class->$method($name,$value);
-}
-
-sub static_accessor_clone {
-    my ($class,$name,$value) = @_;
-    $class = ref $class || $class;
-    
-    no strict 'refs';
-    
-    *{"${class}::${name}"} = sub {
-    	my $self = shift;
-    	
-    	$self = ref $self || $self;
-    	
-        if (@_ > 0) {            
-            if ($class ne $self) {
-                $self->static_accessor_clone( $name => $_[0] ); # define own class data
-            } else {
-                $value = $_[0];
-            }
-        } else {
-        	return $self ne $class
-        	   ? $self->static_accessor_clone($name => clone($value))
-        	   : $value;
-        }
-    };
-    return $value;
-};
-
-sub static_accessor_inherit {
-    my ($class,$name,$value) = @_;
-    
-    no strict 'refs';
-    
-    *{"${class}::$name"} = sub {
-        my $self = shift;
-        
-        if (@_ > 0) {            
-            $self = ref $self || $self;            
-            
-            if ($class ne $self) {
-                $self->static_accessor_inherit( $name => $_[0] ); # define own class data
-            } else {
-                $value = $_[0];
-            }
-        } else {
-            $value ;
-        }        
-    };
-    return $value;
-}
-
-sub static_accessor_own {
-    my ($class,$name,$value) = @_;
-    
-    no strict 'refs';
-    
-    *{"${class}::$name"} = sub {
-        my $self = shift;
-        $self = ref $self || $self;
-        
-        if ($class ne $self) {
-            if (@_ > 0) {
-                $self->static_accessor_own( $name => $_[0] ); # define own class data
-            } else {
-                return;
-            }
-        } else {
-            if ( @_ > 0 ) {
-                $value = $_[0];
-            } else {
-                return $value;
-            }
-        }    
-    };
-    
-    return $value;
-}
-
-sub _find_class_data {
-    my ($class,$name) = @_;
-    
-    no strict 'refs';
-    
-    exists $class_data{$_}{$name} and return $class_data{$_}{$name}    foreach @{"${class}::ISA"};
-        
-    my $val;
-    $val = $_->can('_find_class_data') ? $_->_find_class_data($name) : undef and return $val foreach @{"${class}::ISA"}; 
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Class::Meta> - информация хранимая на уровне класса.
-
-=head1 SYNOPSIS
-
-=begin code
-
-package InfoMeta;
-
-use parent qw(IMPL::Object IMPL::Object::Autofill);
-use IMPL::Class::Property;
-
-__PACKAGE__->PassThroughArgs;
-
-BEGIN {
-    public property name => prop_get | owner_set;
-}
-
-package InfoExMeta;
-use parent qw(InfoMeta);
-
-__PACKAGE__->PassThroughArgs;
-
-BEGIN {
-    public property description => prop_all;
-}
-
-package Foo;
-
-__PACKAGE__->set_meta(new InfoMeta(name => 'info'));
-__PACKAGE__->set_meta(new InfoExMeta(name => 'infoEx', description => 'extended info' ));
-
-package main;
-
-# get all InfoMeta, InfoExMeta will be included, becouse it's derived from InfoMeta
-my @info = Foo->get_meta('InfoMeta'); # will get two objects, 'info' and 'infoEx';
-
-# get all InfoExMeta meta
-@info = Foo->get_meta('InfoExMeta'); # will get only 'infoEx'
-
-# get filtered meta
-@info = Foo->get_meta('InfoMeta', sub { $_->name eq 'info'} ); # will get only 'info' 
-
-=end code
-
-=head1 DESCRIPTION
-
-Позвоялет расширять информацию о типах (класса) при помощи метаданных, метаданными являются любые объекты,
-притом выборка метаданных приоизводится по их типу (классу), что позволяет выбрать все однотипные метаданные.
-
-Существует возможность выборки метаданных с учетом унаследованных от базовых классов
-
-=head1 MEMBERS
-
-=head2 C<set_meta($meta_data)>
-
-Добавляет метаданные C<$meta_data> к классу.
-
-=head2 C<get_meta($meta_class,$predicate,$deep)>
-
-Выбирает метаданные типа C<$meta_class> и его наследников, с возможностью фильтрации и получения
-метаданных базовых классов.
-
-=over
-
-=item C<$meta_class>
-
-Тип метаданных
-
-=item C<$predicate>
-
-Подпрограмма, которая будет вызываться для каждых найденных метаданных и на основе результата
-ее выполнения метаданные будут включены в результат или нет. Получеат в качестве параметра
-объект с метаданными, возвращает C<true> - включить метаданные в результа, C<false> - пропустить
-метаданные как не подходящие. Также переменная C<$_> ссылается на текущий объект с метаданными.
-
-=begin code
-
-my @info = Foo->get_meta(
-    'InfoMeta',
-    sub { ref $_ eq 'InfoMeta'}, # exclude subclasses ('InfoExMeta')
-    1 # deep search
-);
-
-my @info = Foo->get_meta(
-    'InfoMeta',
-    sub {
-        my $item = shift;
-        ref $item eq 'InfoMeta' # exclude subclasses ('InfoExMeta')
-    }, 
-    1 # deep search
-);
-
-=end code 
- 
-=item C<$deep>
-
-Осуществлять поиск по базовым классам.
-
-=back  
-
-=head2 C<static_accessor($name[,$value[,$inherit]])>
-
-Создает статическое свойство с именем C<$name> и начальным значением C<$value>.
-
-Параметр C<$inherit> контролирует то, как наследуются значения.
-
-=over
-
-=item * C<inherit>
-
-По умолчанию. Означает, что если для класса не определено значение, оно будет
-получено от родителя.
-
-=item * C<clone>
-
-Если для класса не определено значение, то оно будет клонировано из
-родительского значения при первом обращении. Полезно, когда родитель задает
-значение по-умолчанию, которое разделяется между несколькими потомками,
-которые модифицирю само значение (например значением является ссылка на хеш,
-а потомки добавляют или меняют значения в этом хеше).
-
-=item * C<own>
-
-Каждый класс имеет свое собственное значение не зависящее от того, что было
-у предка. Начальное значение для этого статического свойства C<undef>.
-
-=back
-
-Данный метод является заглушкой, он передает управление 
-C<static_accessor_inherit>, C<static_accessor_clone>, C<static_accessor_own>
-соответственно. Эти методы можно вызывать явно 
-C<static_accessor_*($name[,$value])>. 
-
-
-=begin code
-
-package Foo;
-use parent qw(IMPL::Class::Meta);
-
-__PACKAGE__->static_accessor( info => { version => 1 } );
-__PACKAGE__->static_accessor( mappings => { toString => \&ToString }, 'clone' );
-__PACKAGE__->static_accessor( _instance => undef, 'own' );
-
-sub ToString {
-    "[object Foo]";
-}
-
-sub default {
-    my ($self) = @_;
-    
-    $self = ref $self || $self;
-    return $self->_instance ? $self->_instance : $self->_instance($self->new());
-}
-
-package Bar;
-use parent qw(Foo);
-
-__PACKAGE__->info({language => 'English', version => 2}); # will define own 'info' but will loose original data.
-__PACKAGE__->mappings->{sayHello} = \&SayHello; # will not affect Foo->mappings;
-
-package main;
-
-my $foo = Foo->default; # will be a Foo object
-my $bar = Bar->default; # will be a Bar object 
-
-=end code
-
-=cut

--- a/Lib/IMPL/Class/MethodInfo.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,13 +0,0 @@
-use strict;
-package IMPL::Class::MethodInfo;
-
-use parent qw(IMPL::Class::MemberInfo);
-
-__PACKAGE__->PassThroughArgs;
-
-__PACKAGE__->mk_accessors(qw(
-    returnType
-    parameters
-));
-
-1;

--- a/Lib/IMPL/Class/Property.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,55 +0,0 @@
-package IMPL::Class::Property;
-use strict;
-use parent qw(Exporter);
-
-BEGIN {
-    our @EXPORT = qw(property prop_get prop_set owner_set prop_none prop_all prop_list CreateProperty);
-}
-
-use IMPL::lang qw(:hash);
-use IMPL::Const qw(:prop);
-use Carp qw(carp);
-require IMPL::Class::Member;
-
-sub import {
-    __PACKAGE__->export_to_level(1,@_);
-    IMPL::Class::Member->export_to_level(1,@_);
-}
-
-sub prop_get { 1 };
-sub prop_set { 2 };
-sub owner_set { 10 };
-sub prop_none { 0 };
-sub prop_all { 3 };
-sub prop_list { 4 };
-
-sub property($$) {
-    my ($propName,$attributes) = @_;
-    
-    my $class = caller;
-    
-    return hashMerge (
-        $class->ClassPropertyImplementor->NormalizeSpecification($attributes),
-	    {
-	        implementor => $class->ClassPropertyImplementor,
-	    	name => $propName,
-	    	class => scalar(caller),
-	    }
-    );
-}
-
-sub CreateProperty {
-    my ($class,$propName,@attributes) = @_;
-    
-    $class
-        ->ClassPropertyImplementor
-        ->Implement(
-            @attributes,
-            {
-                name => $propName,
-                class => $class,
-            }
-        );
-};
-
-1;

--- a/Lib/IMPL/Class/PropertyInfo.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,38 +0,0 @@
-package IMPL::Class::PropertyInfo;
-use strict;
-
-BEGIN {    
-    our @ISA = qw(IMPL::Class::MemberInfo);
-}
-
-require IMPL::Class::MemberInfo;
-
-our %CTOR = ( 'IMPL::Class::MemberInfo' => '@_' );
-
-__PACKAGE__->mk_accessors(
-    qw(
-        type
-        getter
-        setter
-        ownerSet
-        isList
-    )
-);
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Class::PropertyInfo> - метаданные о свойствах объектов. Используются для отражения и
-проверки данных объектов.
-
-=head1 DESCRIPTION
-
-В зависимости от типа каждый объект предоставляет способ хранения данных, например хеши позволяют
-хранить состояние в виде ассоциативного массива и т.д. Информация о свойстве предоставляет определенный
-уровень абстракции. 
-
-=cut

--- a/Lib/IMPL/Class/Template.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,113 +0,0 @@
-package IMPL::Class::Template;
-use strict;
-use IMPL::lang;
-use IMPL::_core::version;
-
-sub makeName {
-    my ($class,@params) = @_;
-    
-    $_ =~ s/^.*::(\w+)$/$1/ foreach @params;
-    return join('',$class,@params);
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Class::Template> базовый класс для шаблонов.
-
-=head1 SYNPOSIS
-
-=begin code
-
-package KeyValuePair;
-
-use IMPL::Class::Property;
-
-use IMPL::template (
-    parameters => [qw(TKey TValue))],
-    base => [qw(IMPL::Object IMPL::Object::Autofill)],
-    declare => sub {
-        my ($class) = @_;
-        public $class->CreateProperty(key => prop_get | owner_set, { type => $class->TKey } );
-        public $class->CreateProperty(value => prop_all, { type => $class->TValue} );
-        
-        $class->PassThroughArgs;
-    }
-);
-
-BEGIN {
-    public property id => prop_get | owner_set, { type => 'integer'};
-}
-
-__PACKAGE__->PassThroughArgs;
-
-package MyCollection;
-
-use IMPL::Class::Property;
-
-use IMPL::lang;
-use IMPL::template(
-    parameters => [qw(TKey TValue)],
-    base => [qw(IMPL::Object)],
-    declare => sub {
-        my ($class) = @_;
-        my $item_t = spec KeyValuePair($class->TKey,$class->TValue);
-        
-        public $class->CreateProperty(items => prop_get | prop_list, { type => $item_t } )
-        
-        $class->static_accessor( ItemType => $item_t );
-    }
-)
-
-sub Add {
-    my ($this,$key,$value) = @_;
-    
-    die new IMPL::ArgumentException( key => "Invalid argument type" ) unless is $key, $this->TKey;
-    die new IMPL::ArgumentException( value => "Invalid argument type" ) unless is $value, $this->TValue;
-    
-    $this->items->AddLast( $this->ItemType->new( key => $key, value => $value ) );
-}
-
-=end code
-
-=head1 DESCRIPTION
-
-Шаблоны используются для динамической генерации классов. Процесс создания класса
-по шаблону называется специализацией, при этом создается новый класс:
-
-=over 
-
-=item 1
-
-Обявляется новый пакет с именем, вычисленным из имени и параметров шаблона
-
-=item 2
-
-Формируется массив C<@ISA> для созаднного класса, в который добавляется имя шаблона
-
-=item 3
-
-Формируются методы с именами параметров шаблона, возвращающие реальные значения параметров
-
-=item 4
-
-Вызывается метод для конструирования специализиции 
-
-=back
-
-=head1 MEMBERS
-
-=over
-
-=item C<spec(@params)>
-
-Метод, создающий специализацию шаблона. Может быть вызван как оператор. 
-
-=back
-
-=cut

--- a/Lib/IMPL/Code/AccessorPropertyImplementor.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,84 +0,0 @@
-package IMPL::Code::AccessorPropertyImplementor;
-use strict;
-
-use IMPL::lang qw(:hash);
-use IMPL::require {
-    Exception => '-IMPL::Exception',
-    ArgException => '-IMPL::InvalidArgumentException',
-    AccessorPropertyInfo => '-IMPL::Class::AccessorPropertyInfo'
-};
-
-require IMPL::Class::AccessorPropertyInfo;
-require IMPL::Object::List;
-
-use parent qw(IMPL::Code::BasePropertyImplementor);
-
-use constant {
-    CodeGetAccessor => 'return $this->get($field);',
-    CodeSetAccessor => 'return $this->set($field,@_);',
-    CodeSetListAccessor =>
-        'my $val = IMPL::Object::List->new( (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_] );
-        $this->set($field,$val);
-        return(    wantarray ?    @{ $val } : $val );',
-    CodeGetListAccessor =>
-        'my $val = $this->get($field);
-        $this->set($field,$val = IMPL::Object::List->new()) unless $val;
-        return(    wantarray ?    @{ $val    } : $val );'
-};
-
-sub factoryParams { qw($class $name $get $set $validator $field) };
-
-my %cache;
-
-sub Implement {
-    my $self = shift;
-    
-    my $spec = {};
-    
-    map hashApply($spec,$self->NormalizeSpecification($_)), @_;
-    
-    my $name = $spec->{name}
-        or ArgException->new(name => "The name of the property is required");
-    my $class = $spec->{class}
-        or ArgException->new(name => "The onwer class must be specified");
-    
-    my $id = $self->CreateFactoryId($spec);
-    my $factory = $cache{$id};
-    unless($factory) {
-        $factory = $self->CreateFactory($spec);
-        $cache{$id} = $factory;     
-    }
-    
-    my $field = $name;
-    
-    my $accessor = $factory->($class, $name, $spec->{get}, $spec->{set}, $spec->{validator}, $field);
-    
-    my $args = {
-        getter => $spec->{get} ? $accessor : undef,
-        setter => $spec->{set} ? $accessor : undef,
-        ownetSet => $spec->{ownerSet} ? 1 : 0,
-        isList => $spec->{isList} ? 1 : 0,
-        name => $spec->{name},
-        class => $spec->{class},
-        type => $spec->{type},
-        access => $spec->{access},
-        fieldName => $field
-    };
-    
-    delete @$spec{qw(get set ownerSet isList name class type access field direct)};
-    
-    $args->{attributes} = $spec;
-    
-    my $propInfo = AccessorPropertyInfo->new($args);
-    
-    {
-        no strict 'refs';
-        *{"${class}::$name"} = $accessor;
-    }
-    
-    $class->SetMeta($propInfo);
-    
-    return $propInfo;
-}
-
-1;
\ No newline at end of file

--- a/Lib/IMPL/Code/BasePropertyImplementor.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,149 +0,0 @@
-package IMPL::Code::BasePropertyImplementor;
-use strict;
-
-use IMPL::Const qw(:prop :access);
-use Scalar::Util qw(looks_like_number);
-
-use constant {
-	CodeNoGetAccessor => 'die new IMPL::Exception(\'The property is write only\',$name,$class) unless $get;',
-    CodeNoSetAccessor => 'die new IMPL::Exception(\'The property is read only\',$name,$class) unless $set;',
-    CodeCustomGetAccessor => '$this->$get(@_);',
-    CodeCustomSetAccessor => '$this->$set(@_);',
-    CodeValidator => '$this->$validator(@_);',
-    CodeOwnerCheck => "die new IMPL::Exception('Set accessor is restricted to the owner',\$name,\$class,scalar caller) unless caller eq \$class;"
-};
-
-sub CodeSetAccessor {
-    die new IMPL::Exception("Standard accessors not supported",'Set');
-}
-    
-sub CodeGetAccessor {
-    die new IMPL::Exception("Standard accessors not supported",'Get');
-}
-
-sub CodeGetListAccessor {
-    die new IMPL::Exception("Standard accessors not supported",'GetList');
-}
-
-sub CodeSetListAccessor {
-    die new IMPL::Exception("Standard accessors not supported",'SetList');
-}
-
-sub factoryParams { qw($class $name $set $get $validator) };
-
-our %ACCESS_CODE = (
-    ACCESS_PUBLIC , "",
-    ACCESS_PROTECTED, "die new IMPL::Exception('Can\\'t access the protected member',\$name,\$class,scalar caller) unless UNIVERSAL::isa(scalar caller,\$class);",
-    ACCESS_PRIVATE, "die new IMPL::Exception('Can\\'t access the private member',\$name,\$class,scalar caller) unless caller eq \$class;" 
-);
-
-sub NormalizeSpecification {
-	my ($this,$spec) = @_;
-	
-	return $spec if ref($spec);
-	
-	if (looks_like_number($spec)) {
-		return {
-            get => $spec & PROP_GET,
-            set => $spec & PROP_SET,
-            isList => $spec & PROP_LIST,
-            ownerSet => (($spec & PROP_OWNERSET) == PROP_OWNERSET),
-            direct => $spec & PROP_DIRECT
-        };
-	} else {
-		return {};
-	}	    
-}
-
-sub CreateFactoryId {
-	my ($self, $spec) = @_;
-	
-	join( '',
-        map(
-            ($_
-                ? ( _isCustom($_)
-                    ? 'x'
-                    : 's')
-                : '_'),
-            @$spec{qw(get set)}
-        ),
-        $spec->{access} || ACCESS_PUBLIC,
-        $spec->{validator} ? 'v' : '_',
-        $spec->{isList} ? 'l' : '_',
-        $spec->{ownerSet} ? 'o' : '_'
-    );
-}
-
-sub _isCustom {
-	ref($_[0]) eq 'CODE' || not(ref($_[0]) || looks_like_number($_[0]));
-}
-
-sub CreateFactory {
-	my ($self,$spec) = @_;
-	
-	return $self->CreateFactoryImpl(
-        ($spec->{get}
-            ? ( _isCustom($spec->{get})
-                ? $self->CodeCustomGetAccessor
-                : ($spec->{isList}
-                    ? $self->CodeGetListAccessor
-                    : $self->CodeGetAccessor
-                  )
-              )
-            : $self->CodeNoGetAccessor
-        ),
-        ($spec->{set}
-            ? ( _isCustom($spec->{set})
-                ? $self->CodeCustomSetAccessor
-                : ($spec->{isList}
-                    ? $self->CodeSetListAccessor
-                    : $self->CodeSetAccessor
-                  )
-              )
-            : $self->CodeNoSetAccessor
-        ),
-        $ACCESS_CODE{$spec->{access} || ACCESS_PUBLIC} || '',
-        $spec->{validator} ? $self->CodeValidator : '',
-        $spec->{ownerSet} ? $self->CodeOwnerCheck : ''
-	);
-}
-
-sub CreateFactoryImpl {
-    my ($self,$codeGet,$codeSet,$codeAccessCheck,$codeValidator,$codeOwnerCheck) = @_;
-    
-    my $strParams = join(',',$self->factoryParams);
-    
-    my $factory = <<FACTORY;
-    
-sub {
-    my ($strParams) = \@_;
-    return sub {
-        my \$this = shift;
-        $codeAccessCheck
-        if (\@_) {
-            $codeOwnerCheck
-            $codeValidator
-            $codeSet
-        } else {
-            $codeGet
-        }
-    }
-}
-FACTORY
-
-    return ( eval $factory or die new IMPL::Exception("Syntax error due compiling the factory","$@") );
-}
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Code::BasePropertyImplementor> набор впомогательныйх статических методов
-для генерации свойств.
-
-=cut
\ No newline at end of file

--- a/Lib/IMPL/Code/DirectPropertyImplementor.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,96 +0,0 @@
-package IMPL::Code::DirectPropertyImplementor;
-use strict;
-
-require IMPL::Object::List;
-
-use IMPL::lang qw(:hash);
-use IMPL::require {
-	Exception => 'IMPL::Exception',
-	ArgException => '-IMPL::InvalidArgumentException',
-	DirectPropertyInfo => 'IMPL::Class::DirectPropertyInfo'
-};
-
-use parent qw(IMPL::Code::BasePropertyImplementor);
-
-use constant {
-	CodeGetAccessor => 'return ($this->{$field});',
-	CodeSetAccessor => 'return ($this->{$field} = $_[0])',
-	CodeGetListAccessor => 'return(
-        wantarray ?
-        @{ $this->{$field} ?
-            $this->{$field} :
-            ( $this->{$field} = IMPL::Object::List->new() )
-        } :
-        ( $this->{$field} ?
-            $this->{$field} :
-            ( $this->{$field} = IMPL::Object::List->new() )
-        )
-    );',
-    CodeSetListAccessor => 'return(
-        wantarray ?
-        @{ $this->{$field} = IMPL::Object::List->new(
-            (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_]  
-        )} : 
-        ($this->{$field} = IMPL::Object::List->new(
-            (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_]  
-        ))
-    );'
-};
-
-sub factoryParams { qw($class $name $get $set $validator $field) };
-
-my %cache;
-
-sub Implement {
-	my $self = shift;
-	
-	my $spec = {};
-    
-    map hashApply($spec,$self->NormalizeSpecification($_)), @_;
-	
-	my $name = $spec->{name}
-        or ArgException->new(name => "The name of the property is required");
-    my $class = $spec->{class}
-        or ArgException->new(name => "The onwer class must be specified");
-	
-	my $id = $self->CreateFactoryId($spec);
-	my $factory = $cache{$id};
-	unless($factory) {
-        $factory = $self->CreateFactory($spec);
-        $cache{$id} = $factory;		
-	}
-	
-	my $field = join( '_', split(/::/, $class), $name);
-	
-	my $accessor = $factory->($class, $name, $spec->{get}, $spec->{set}, $spec->{validator}, $field);
-	
-	my $args = {
-	    getter => $spec->{get} ? $accessor : undef,
-	    setter => $spec->{set} ? $accessor : undef,
-	    ownetSet => $spec->{ownerSet} ? 1 : 0,
-	    isList => $spec->{isList} ? 1 : 0,
-	    name => $spec->{name},
-	    class => $spec->{class},
-	    type => $spec->{type},
-	    access => $spec->{access},
-	    fieldName => $field,
-	    directAccess => $spec->{direct}
-	};
-	
-	delete @$spec{qw(get set ownerSet isList name class type access field direct)};
-	
-	$args->{attributes} = $spec;
-	
-	my $propInfo = DirectPropertyInfo->new($args);
-	
-	{
-	    no strict 'refs';
-	    *{"${class}::$name"} = $accessor;
-	    *{"${class}::$name"} = \$field if $args->{directAccess};
-	}
-	$class->SetMeta($propInfo);
-	
-	return $propInfo;
-}
-
-1;
\ No newline at end of file

--- a/Lib/IMPL/Code/Loader.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,79 +0,0 @@
-package IMPL::Code::Loader;
-use strict;
-use warnings;
-
-use IMPL::Const qw(:prop);
-use File::Spec;
-use IMPL::declare {
-	require => {
-		Exception => 'IMPL::Exception',
-		ArgumentException => '-IMPL::InvalidArgumentException' 
-	},
-	base => {
-		'IMPL::Object' => undef,
-		'IMPL::Object::Autofill' => '@_'
-	},
-	props => [
-	   verifyNames => PROP_RO,
-	   prefix => PROP_RO,
-	   _pending => PROP_RW
-	]
-};
-
-my $default;
-sub default {
-	$default ||= new IMPL::Code::Loader;
-}
-
-my $safe;
-sub safe {
-	$safe ||= new IMPL::Code::Loader(verifyNames => 1);
-}
-
-sub CTOR {
-    my ($this) = @_;
-    
-    $this->_pending({});
-}
-
-sub Require {
-    my ($this,$package) = @_;
-    
-    if ($this->verifyNames) {
-    	$package =~ m/^([a-zA-Z_0-9]+(?:::[a-zA-Z_0-9]+)*)$/
-    	   or die ArgumentException->new(package => 'Invalid package name') ;
-    	$package = $1;
-    }
-    
-    $package = $this->prefix . '::' . $package if $this->prefix;
-    
-    my $file = join('/', split(/::/,$package)) . ".pm";
-    
-    require $file;
-        
-    return $package;
-}
-
-sub ModuleExists {
-    my ($this,$package) = @_;
-    
-    my $file = join('/', split(/::/,$this->GetFullName($package))) . ".pm";
-    
-    -f File::Spec->catfile($_,$file) and return 1 foreach @INC;
-    
-    return 0;
-}
-
-sub GetFullName {
-    my ($this,$package) = @_;
-    
-    if ($this->verifyNames) {
-        $package =~ m/^([a-zA-Z_0-9]+(?:::[a-zA-Z_0-9]+)*)$/
-           or die ArgumentException->new(package => 'Invalid package name') ;
-    }
-    
-    return $this->prefix . '::' . $package if $this->prefix;
-}
-
-1;
-

--- a/Lib/IMPL/Config.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,291 +0,0 @@
-package IMPL::Config;
-use strict;
-use warnings;
-use mro;
-
-use Carp qw(carp);
-
-use IMPL::lang qw(is);
-use IMPL::Exception;
-use IMPL::Const qw(:access);
-use IMPL::declare {
-	require => {
-		PropertyInfo => 'IMPL::Class::PropertyInfo',
-		XmlFormatter => 'IMPL::Serialization::XmlFormatter',
-		Serializer => '-IMPL::Serializer',
-		Activator => '-IMPL::Config::Activator',
-		
-		Exception => 'IMPL::Exception',
-		IOException => '-IMPL::IOException'
-	},
-    base => [
-        'IMPL::Object::Accessor' => undef,
-        'IMPL::Object::Serializable' => undef,
-        'IMPL::Object::Autofill' => '@_'
-    ]
-};
-
-use File::Spec();
-
-
-our $ConfigBase ||= '';
-our $AppBase;
-
-sub LoadXMLFile {
-    my ($self,$file) = @_;
-    
-    my $class = ref $self || $self;
-    
-    my $serializer = Serializer->new(
-        formatter => XmlFormatter->new(
-            IdentOutput => 1,
-            SkipWhitespace => 1
-        )
-    );
-    
-    open my $hFile,'<',$file or die IOException->new("Failed to open file",$file,$!);
-    
-    my $obj;
-    eval {
-        $obj = $serializer->Deserialize($hFile);
-    };
-    
-    if ($@) {
-        my $e=$@;
-        die Exception->new("Can't load the configuration file",$file,$e);
-    }
-    return $obj;
-}
-
-sub SaveXMLFile {
-    my ($this,$file) = @_;
-    
-    my $serializer = Serializer->new(
-        formatter => XmlFormatter->new(
-            IdentOutput => 1,
-            SkipWhitespace => 1
-        )
-    );
-    
-    open my $hFile,'>',$file or die IOException->new("Failed to open file",$file,$!);
-    
-    $serializer->Serialize($hFile, $this);
-}
-
-sub xml {
-    my $this = shift;
-    my $serializer = Serializer->new(
-        formatter => XmlFormatter->new(
-            IdentOutput => 1,
-            SkipWhitespace => 1
-        )
-    );
-    my $str = '';
-    open my $hFile,'>',\$str or die IOException->new("Failed to open stream",$!);
-    
-    $serializer->Serialize($hFile, $this);
-    
-    undef $hFile;
-    
-    return $str;
-}
-
-sub save {
-    my ($this,$ctx) = @_;
-    
-    my $val;
-
-    $val = $this->rawGet($_) and $ctx->AddVar($_ => $val) foreach map $_->Name, $this->get_meta(
-        PropertyInfo,
-        sub {
-            $_->access == ACCESS_PUBLIC and
-            $_->setter;
-        },
-        1);    
-}
-
-sub spawn {
-    my ($this,$file) = @_;
-    unless ($file) {
-        ($file = ref $this || $this) =~ s/:+/./g;
-        $file .= ".xml";
-    }
-    return $this->LoadXMLFile( File::Spec->catfile($ConfigBase,$file) );
-}
-
-sub get {
-    my $this = shift;
-    
-    if (@_ == 1) {
-        my $obj = $this->SUPER::get(@_);
-        return is($obj,Activator) ? $obj->activate : $obj;
-    } else {
-        my @objs = $this->SUPER::get(@_);    
-        return map is($_,Activator) ? $_->activate : $_, @objs ;    
-    }
-}
-
-sub rawGet {
-    my $this = shift;
-    return $this->SUPER::get(@_);
-}
-
-sub Exists {
-    $_[0]->SUPER::get($_[1]) ? 1 : 0;
-}
-
-sub AppBase {
-	carp "obsolete";
-	shift;
-	File::Spec->catdir($AppBase,@_);
-}
-
-sub AppDir {
-	shift;
-	File::Spec->catdir($AppBase,@_);
-}
-
-sub AppFile {
-	shift;
-	File::Spec->catfile($AppBase,@_);
-}
-
-sub ConfigBase {
-	carp "obsolete";
-	shift;
-	File::Spec->catdir($ConfigBase,@_);
-}
-
-sub ConfigDir {
-	shift;
-	File::Spec->catdir($ConfigBase,@_);
-}
-
-sub ConfigFile {
-	shift;
-	File::Spec->catfile($ConfigBase,@_);
-}
-
-1;
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Config> - базовый класс для настраиваемого приложения.
-
-=head1 SYNOPSIS
-
-=begin code
-
-# define application
-
-package MyApp;
-use parent qw(IMPL::Config);
-
-use IMPL::Class::Property;
-use IMPL::Config::Class;
-
-BEGIN {
-    public property SimpleString => prop_all;
-    public property DataSource => prop_all; 
-}
-
-sub CTOR {
-    my $this = shift;
-    
-    $this->DataSource(
-        new IMPL::Config::Activator(
-            factory => 'MyDataSource',
-            parameters=>{
-                host => 'localhost',
-                user => 'dbuser'
-            }
-        )
-    ) unless $this->Exists('DataSource');
-}
-
-# using application object
-
-my $app = spawn MyApp('default.xml');
-
-$app->Run();
-
-=end code
-
-Ниже приведен пример файла C<default.xml> содержащего настройки приложения
-
-=begin code xml
-
-<app type='MyApp'>
-    <SimpleString>The application</SimpleString>
-    <DataSource type='IMPL::Config::Activator'>
-        <factory>MyDataSourceClass</factory>
-        <parameters type='HASH'>
-            <host>localhost</host>
-            <user>dbuser</user>
-        </parameters>
-    </DataSource>
-</app>
-
-=end code xml
-
-=head1 DESCRIPTION
-
-C<[Serializable]>
-
-C<[Autofill]>
-
-C<use parent IMPL::Object::Accessor>
-
-Базовый класс для приложений. Использует подход, что приложение
-является объектом, состояние которого предтавляет собой конфигурацию,
-а методы - логику.
-
-Данный класс реализует функционал десериализации (и сериализации) экземпляра
-приложения из XML документа. Для этого используется механизм C<IMPL::Serialization>.
-При этом используются опции C<IMPL::Serialization::XmlFormatter> C<IdentOutput> и
-C<SkipWhitespace> для записи документа в легко читаемом виде.
-
-Поскольку в результате восстановления приложения восстанавливаются все элементы
-из файла конфигурации, то это может потребовать значительных ресурсов для
-создания частей, которые могут никогда не понадобиться. Например, не требуется инициализация
-источника данных для передачи пользователю статических данных, сохраненных на диске.
-
-Для решения этой проблемы используются специальные объекты C<IMPL::Config::Activator>.
-
-Если у приложения описано свойство, в котором хранится C<IMPL::Config::Activator>, то
-при первом обращении к такому свойству, будет создан объект вызовом метода
-C<< IMPL::Config::Activator->activate() >> и возвращен как значение этого свойства.
-Таким образом реализуется прозрачная отложенная активация объектов, что позволяет
-экономить ресурсы. 
-
-=head1 MEMBERS
-
-=over
-
-=item C<[static] LoadXMLFile($fileName) >
-
-Создает из XML файла C<$fileName> экземпляр приложения
-
-=item C<SaveXMLFile($fileName)>
-
-Сохраняет приложение в файл C<$fileName>
-
-=item C<[get] xml >
-
-Сохраняет конфигурацию приложения в XML строку.
-
-=item C<[static,operator] spawn($file)>
-
-Синоним для C<LoadXMLFile>, предполагается использование как оператора.
-
-=item C<rawGet($propname,...)>
-
-Метод для получения значений свойств приложения. Данный метод позволяет избежать
-использование активации объектов через C<IMPL::Config::Activator>.
-
-=back
-
-=cut

--- a/Lib/IMPL/Config/ActivationContext.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,68 +0,0 @@
-package IMPL::Config::ActivationContext;
-
-use IMPL::Const qw(:prop);
-use IMPL::Exception();
-use IMPL::declare {
-	require => {
-		PropertyBag => 'IMPL::Config::ServicesBag'
-	},
-	base => {
-		'IMPL::Object' => '@_'
-	},
-	props => {
-		_services => PROP_RW,
-		_cache => PROP_RW,
-		_stack => PROP_RW
-	}
-};
-
-sub GetService {
-	my ($this,$serviceId) = @_;
-	
-	$this->_services->
-}
-
-sub EnterScope {
-	my ($this, $name, $localize) = @_;
-	
-	my $info = { name => $name };
-	
-	if ($localize) {
-		$info->{services} = $this->_services;
-		
-		$this->_services(PropertyBag->new($this->_services));
-	}
-	
-	$this->_stack->Push($info);
-}
-
-sub LeaveScope {
-	my ($this) = @_;
-	
-	my $info = $this->_stack->Pop()
-		or die IMPL::InvalidOperationException();
-	
-	if ($info->{services})	
-		$this->_services($info->{services});
-}
-
-1;
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Config::ActivationContext> - an activation context for the service
-
-=head1 SYNOPSIS
-
-For the internal use only
-
-=head1 MEMBERS
-
-=head2 METHODS
-
-=head3 GetService($serviceId)
-
-=cut
\ No newline at end of file

--- a/Lib/IMPL/Config/Activator.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,91 +0,0 @@
-package IMPL::Config::Activator;
-use strict;
-
-use Scalar::Util qw(reftype);
-use IMPL::lang;
-use IMPL::Const qw(:prop);
-use IMPL::declare {
-	require => {
-	   Loader => 'IMPL::Code::Loader',
-	   Exception => 'IMPL::Exception'
-	},
-	base => [
-	   'IMPL::Object' => undef,
-	   'IMPL::Object::Autofill' => '@_',
-	   'IMPL::Object::PublicSerializable' => undef
-	],
-	props => [
-	   factory => PROP_RW,
-	   parameters => PROP_RW,
-	   singleCall => PROP_RW,
-	   _object => PROP_RW
-	]
-};
-
-use constant {
-	SELF_CLASS => __PACKAGE__,
-};
-
-sub CTOR {
-    my $this = shift;
-
-    die Exception->new("A factory parameter is required") unless $this->factory;
-    
-}
-
-
-sub activate {
-    my $this = shift;
-    
-    unless ($this->_object) {
-        my @args;
-        
-        my $params = $this->parameters;
-        if (ref $params eq 'HASH') {
-            while ( my ($key,$value) = each %$params ) {
-                push @args,$key, is($value,SELF_CLASS) ? $value->activate : $value;
-            }
-        } elsif (ref $params eq 'ARRAY') {
-            push @args, map is($_,SELF_CLASS) ? $_->activate : $_, @$params;
-        } else {
-            push @args, is($params,SELF_CLASS) ? $params->activate : $params;
-        }
-        
-        push @args,  map is($_,SELF_CLASS) ? $_->activate : $_, @_ if @_;
-        
-        my $factory = $this->factory;
-        Loader->default->Require($factory)
-            unless ref($factory);
-        
-        my $instance = $factory->new(@args);
-        
-        $this->_object($instance)
-            unless $this->singleCall;
-        
-        return $instance;
-    } else {
-        return $this->_object;
-    }
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Config::Activator> - объект, используемый для получения других объектов.
-
-=head1 DESCRIPTION
-
-Служит дополнительным уровнем абстракции в тех случаях, когда нужный объект
-заранее не известен или его создание должно происходить по требованию.
-От обычной фабрики отличается также тем, что рассматривает формальные параметры
-на наличие активаторов и выполняет их при активации.
-
-Кроме того можно указать, что процесс активации должен происходить при каждом
-обращении. 
-
-=cut

--- a/Lib/IMPL/Config/Container.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,34 +0,0 @@
-package IMPL::Config::Container;
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Config::Container> - dependency injection container
-
-=head1 SYNOPSIS
-
-=head2 METHODS
-
-=head3 GetService($serviceId)
-
-=over
-
-=item * $serviceId
-
-A string indetifier of the service, it can be in two forms: class name or service name,
-for the class name it should be prefixed with C<@>, for example: C<@Foo::Bar>.
-
-=back
-
-The activation container maintains two maps, one for classes and the other for names.
-The first one is useful when we searching for an implementation the second one when
-we need a particular service. 
-
-=head3 RegisterService($descriptor)
-
-=cut
\ No newline at end of file

--- a/Lib/IMPL/Config/Descriptor.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,51 +0,0 @@
-package IMPL::Config::Descriptor;
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Config::Descriptor> - the abstract base types for the service descriptors 
-
-=head1 SYNOPSIS
-
-=begin code
-
-package MyDescriptor;
-
-use IMPL::declare {
-	base => {
-		'IMPL::Config::Descriptor' => '@_'
-	}
-};
-
-sub Activate {
-	my ($this,$context) = @_;
-	
-	my $service = $context->GetService('service');
-	my 
-	 
-}
-
-=end code
-
-=head1 MEMBERS
-
-=head1 SEE ALSO
-
-=over
-
-=item * L<ReferenceDescriptor> - describes a reference to the service
-
-=item * L<ServiceDescriptor> - descibes a service factory
-
-=item * L<ValueDescriptor> - describes a value
-
-=back
-
-=cut
\ No newline at end of file

--- a/Lib/IMPL/Config/Include.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,18 +0,0 @@
-package IMPL::Config::Include;
-use strict;
-use warnings;
-use IMPL::require {
-    Conf => 'IMPL::Config',
-    Exception => 'IMPL::Exception'
-};
-
-
-sub restore {
-	my ($self,$data) = @_;
-	
-	die Exception->new("A file name is required") if ref $data || not $data;
-	
-	return Conf->spawn($data);
-}
-
-1;
\ No newline at end of file

--- a/Lib/IMPL/Config/Path.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,29 +0,0 @@
-package IMPL::Config::Path;
-use strict;
-use IMPL::Config();
-
-use IMPL::require {
-	Exception => 'IMPL::Exception',
-	OpException => '-IMPL::InvalidOperationException'
-};
-
-sub restore {
-	my ($self,$data,$surrogate) = @_;
-	
-	die OpException->new("Invalid content") unless ref $data eq 'ARRAY' && @$data == 2;
-	
-	my ($base,$path) = @$data;
-	
-	my %types = (
-	   appBase => 'AppDir',
-	   configBase => 'ConfigDir'
-	);
-	
-	my $method = $types{$base};
-	
-	die OpException->new("Unsupported path type",$base) unless $method;
-	
-	return IMPL::Config->$method($path);
-}
-
-1;
\ No newline at end of file

--- a/Lib/IMPL/Config/Reference.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,92 +0,0 @@
-package IMPL::Config::Reference;
-use strict;
-
-use IMPL::Exception;
-
-sub restore {
-	my ($self,$data,$surrogate) = @_;
-	
-	my @path;
-	
-	my ($tagTarget,$target) = splice @$data, 0, 2;
-	
-	die new IMPL::Exception('A traget tag must be the first tag in the reference specification') unless $tagTarget eq 'target';
-	while(my ($method,$args) = splice @$data, 0, 2 ) {
-		$target = $self->_InvokeMember($target,{ method => $method, args => $args});
-	}
-	return $target;
-}
-
-sub _InvokeMember {
-    my ($self,$object,$member) = @_;
-    
-    my $method = $member->{method};
-    return 
-        ref $object eq 'HASH' ?
-            $object->{$method}
-            :
-            $object->$method(
-                exists $member->{args} ?
-                    _as_list($member->{args})
-                    :
-                    ()
-            )
-    ;
-}
-
-sub _as_list {
-    ref $_[0] ?
-        (ref $_[0] eq 'HASH' ?
-            %{$_[0]}
-            :
-            (ref $_[0] eq 'ARRAY'?
-                @{$_[0]}
-                :
-                $_[0]
-            )
-        )
-        :
-        ($_[0]);
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::Config::Reference> - ссылка на внешний объект, вычисляемый на этапе десериализации данных.
-
-=head1 SYNOPSIS
-
-=begin code xml
-
-<Application>
-	<processingStack type="IMPL::Config::Reference">
-	   <target>IMPL::Config</target>
-	   <LoadXMLFile>stdprocessing.xml</LoadXMLFile>
-	</processingStack>
-</Application>
-
-=end code xml
-
-=head1 DESCRIPTION
-
-Позволяет на указвать ссылки на вычисляемые объекты, например, загружаемые из файлов. Ссылки такого рода
-будут вычислены на этапе десериализации еще до того, как будет создан объект верхнего уровня, поэтому
-следует избегать таких ссылок на сам (его свойства и методы) десериализуемый объект.  
-
-=head1 MEMBERS
-
-=head2 C<restore($class,$data,$surrogate)>
-
-Использует данные переданные в параметре дата C<$data> для вычисления свойства. Данный метод - стандартный
-метод для десериализации объекта, а параметр C<$data> содержит пары значений C<(имя_узла,значение_узла)>,
-первая пара обязательно является узлом C<target>, а его значение - целевой объект, который будет
-использован для вычисления конечного значения.
-
-=back
-
-=cut
\ No newline at end of file

--- a/Lib/IMPL/Config/Resolve.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,77 +0,0 @@
-package IMPL::Config::Resolve;
-use strict;
-use parent qw(IMPL::Object IMPL::Object::Serializable);
-
-use IMPL::Class::Property;
-use IMPL::Exception;
-use Carp qw(carp);
-
-BEGIN {
-    public property path => prop_all|prop_list;
-}
-
-__PACKAGE__->PassThroughArgs;
-
-sub CTOR {
-    my $this = shift;
-    
-    my $list = $this->path;
-    
-    while(my $name = shift ) {
-        my $args = shift;
-        $list->Append({ method => $name, (defined $args ? (args => $args) : ()) });
-    }
-    
-    #die new IMPL::InvalidArgumentException("The argument is mandatory","path") unless $this->path->Count;
-}
-
-sub Invoke {
-    my ($this,$target,$default) = @_;
-    
-    my $result = $target;
-    $result = $this->_InvokeMember($result,$_) || return $default foreach $this->path;
-    
-    return $result;
-}
-
-sub _InvokeMember {
-    my ($self,$object,$member) = @_;
-    
-    my $method = $member->{method};
-    
-    local $@;
-    return eval {
-        ref $object eq 'HASH' ?
-            $object->{$method}
-            :
-            $object->$method(
-                exists $member->{args} ?
-                    _as_list($member->{args})
-                    :
-                    ()
-            )
-    };
-}
-
-sub save {
-    my ($this,$ctx) = @_;
-    
-    $ctx->AddVar($_->{method},$_->{args}) foreach $this->path;
-}
-
-sub _as_list {
-    ref $_[0] ?
-        (ref $_[0] eq 'HASH' ?
-            %{$_[0]}
-            :
-            (ref $_[0] eq 'ARRAY'?
-                @{$_[0]}
-                :
-                $_[0]
-            )
-        )
-        :
-        ($_[0]);
-}
-
-1;

--- a/Lib/IMPL/Config/ServicesBag.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,158 +0,0 @@
-package IMPL::Config::ServicesBag;
-
-require v5.9.5;
-
-use mro;
-
-use IMPL::Const qw(:prop);
-use IMPL::declare {
-	base => [
-		'IMPL::Object' => undef
-	],
-	props => [
-		_prototype => PROP_RW,
-		_nameMap   => PROP_RW,
-		_typeMap   => PROP_RW,
-		_props     => PROP_RW,
-	]
-};
-
-sub CTOR {
-	my ( $this, $prototype ) = @_;
-
-	$this->_prototype($prototype) if $prototype;
-	$this->_nameMap( {} );
-	$this->_typeMap( {} );
-}
-
-sub GetDescriptorByName {
-	my ( $this, $name ) = @_;
-
-	my $d = $this->_nameMap->{$name};
-	return $d if $d and $d->{valid};
-
-	my $parent = $this->_prototype;
-
-	if ( $parent and $d = $parent->GetDescriptorByName($name) ) {
-		return $this->_nameMap->{$name} = $d;
-	}
-
-	return undef;
-}
-
-sub GetDescriptorByType {
-	my ( $this, $type ) = @_;
-
-	my $d = $this->_typeMap->{$type};
-	return $d if $d and $d->{valid};
-
-	my $parent = $this->_prototype;
-	if ( $parent and $d = $parent->GetDescriptorByType($type) ) {
-		return $this->_typeMap->{$type} = $d;
-	}
-
-	return undef;
-}
-
-sub RegisterValue {
-	my ( $this, $value, $name, $type ) = @_;
-
-	my $d = { owner => $this, value => $value, valid => 1 };
-
-	if ($type) {
-		my $map = $this->_typeMap;
-		my $isa = mro::get_linear_isa($type);
-		$d->{isa} = $isa;
-
-		# the service record which is superseded by the current one
-		my $replaces = $this->GetDescriptorByType($type);
-
-		foreach my $t (@$isa) {
-			if ( my $prev = $this->GetDescriptorByType($t) ) {
-
-				# keep previous registrations if they are valid
-				next if not $replaces or $prev != $replaces;
-			}
-
-			$map->{$t} = $d;
-		}
-
-		if ($replaces) {
-
-			# invalidate cache
-			$replaces->{owner}->UpdateDescriptor($replaces);
-		}
-	}
-
-	if ($name) {
-		my $prev = $this->_nameMap->{$name};
-		$d->{name} = $name;
-		$this->_nameMap->{$name} = $d;
-		$prev->{owner}->UpdateDescriptor($prev) if $prev;
-	}
-
-	return $d;
-}
-
-sub UpdateDescriptor {
-	my ( $this, $d ) = @_;
-
-	my $d2 = {};
-
-	# copy descriptor
-	while ( my ( $k, $v ) = each %$d ) {
-		$d2->{$k} = $v;
-	}
-
-	# update named entries
-	my $name = $d->{name};
-	if ( $name and $this->_nameMap->{$name} == $d ) {
-		$this->_nameMap->{$name} = $d2;
-	}
-
-	# update type entries
-	if ( my $isa = $d->{isa} ) {
-		my $map = $this->_typeMap;
-		foreach my $t (@$isa) {
-			next unless $map->{$t} == $d;
-			$map->{$t} = $d2;
-		}
-	}
-
-	$d->{valid} = 0;
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-=head1 SYNOPSIS
-
-=head1 DESCRIPTION
-
-Коллекция сервисов построена на прототиптровании экземпляров, т.е. при создании
-новой коллекции может указваться базовая коллекция в которой будет происходить
-поиск сервисов в случае их отсутсвия в основной. Для оптимизации данного процесса
-сервисы кешируются, чтобы избежать можестрвенных операций поиска по иерархии
-коллекций, для этого каждый сервис описывается дескриптором:
-
-=over
-
-=item * isa массив типов сервиса, если он регистрировался как сервис
-
-=item * value значение
-
-=item * valid признак того, что дескриптор действителен
-
-=item * owner коллекция, которая создала данный дескриптор
-
-=back
-
-Если запрашиваемый десриптор не найден это является ошибкой, поэтому негативные
-ответы не кешируются
-
-=cut

--- a/Lib/IMPL/Const.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,58 +0,0 @@
-package IMPL::Const;
-use strict;
-
-use parent qw(Exporter);
-
-our %EXPORT_TAGS = (
-    all => [
-        qw(
-          &ACCESS_PUBLIC
-          &ACCESS_PROTECTED
-          &ACCESS_PRIVATE
-          &PROP_GET
-          &PROP_SET
-          &PROP_OWNERSET
-          &PROP_LIST
-          &PROP_ALL
-          &PROP_DIRECT
-          )
-    ],
-    prop => [
-        qw(
-          &PROP_GET
-          &PROP_SET
-          &PROP_OWNERSET
-          &PROP_LIST
-          &PROP_ALL
-          &PROP_RO
-          &PROP_RW
-          &PROP_DIRECT
-          )
-    ],
-    access => [
-        qw(
-          &ACCESS_PUBLIC
-          &ACCESS_PROTECTED
-          &ACCESS_PRIVATE
-          )
-    ]
-    
-);
-
-our @EXPORT_OK = keys %{ { map (($_,1) , map (@{$_}, values %EXPORT_TAGS) ) } };
-
-use constant {
-    ACCESS_PUBLIC    => 1,
-    ACCESS_PROTECTED => 2,
-    ACCESS_PRIVATE   => 3,
-    PROP_GET         => 1,
-    PROP_SET         => 2,
-    PROP_OWNERSET    => 10,
-    PROP_LIST        => 4,
-    PROP_ALL         => 3,
-    PROP_RW          => 3,
-    PROP_RO          => 11,
-    PROP_DIRECT      => 16
-};
-
-1;
\ No newline at end of file

--- a/Lib/IMPL/DOM/Document.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,132 +0,0 @@
-package IMPL::DOM::Document;
-use strict;
-use warnings;
-
-use IMPL::lang;
-use IMPL::Const qw(:prop);
-use IMPL::declare {
-    require => {
-        DOMNode => 'IMPL::DOM::Node'
-    },
-    base => [
-        DOMNode => '@_'
-    ],
-    props => [
-    	schemaDocument => PROP_RW
-    ]
-};
-
-sub document {
-    return $_[0];
-}
-
-sub Create {
-    my ($this,$nodeName,$class,$refProps) = @_;
-    
-    if ( ref $class eq 'HASH' ) {
-        $refProps = $class;
-        $class = undef;
-    }
-    
-    $class ||= DOMNode;
-    $refProps ||= {};
-    
-    delete $refProps->{nodeName};
-    
-    die new IMPL::Exception("class is not specified") unless $class;
-    return $class->new(
-        nodeName => $nodeName,
-        document => $this,
-        %$refProps
-    );
-}
-
-sub save {
-    my ($this,$writer) = @_;
-    
-    $writer->xmlDecl(undef,'yes');
-    $this->SUPER::save($writer);
-    $writer->end();
-}
-
-{
-    my $empty;
-    sub Empty() {
-        return $empty ? $empty : ($empty = __PACKAGE__->new(nodeName => 'Empty'));
-    }
-}
-
-1;
-__END__
-
-=pod
-
-=head1 NAME
-
-C<IMPL::DOM::Document> DOM документ.
-
-=head1 DESCRIPTION
-
-Документ, позволяет создавать узлы определенных типов, что позволяет абстрагироваться
-от механизмов реального создания объектов. Т.о. например C<IMPL::DOM::Navigator::Builder>
-может формировать произвольные документы.
-
-=head1 SYNOPSIS
-
-=begin code
-
-package MyDocument;
-use parent qw(IMPL::DOM::Document);
-
-sub Create {
-    my $this = shift;
-    my ($name,$class,$hashProps) = @_;
-    
-    if ($class eq 'Info') {
-        return MyInfo->new($name,$hashProps->{date},$hashProps->{description});
-    } else {
-        # leave as it is
-        return $this->SUPER::Create(@_);
-    }
-}
-
-=end code
-
-=head1 METHODS
-
-=over
-
-=item C< Create($nodeName,$class,$hashProps) >
-
-Реализация по умолчанию. Создает узел определеннго типа с определенным именем и свойствами.
-
-=begin code
-
-sub Create {
-    my ($this,$nodeName,$class,$hashProps) = @_;
-    
-    return $class->new (
-        nodeName => $nodeName,
-        document => $this,
-        %$hashProps
-    );
-}
-
-=end code
-
-=item C< save($writer) >
-
-Сохраняет документ в виде XML узла и вызывает C<< $writer->end() >>.
-
-=over
-
-=item C<$writer>
-
-Объект с интерфейсом C<XML::Writer> который будет использован для записи
-содержимого документа
-
-=back
-
-=back
-
-=cut

--- a/Lib/IMPL/DOM/Navigator.pm	Mon Aug 31 20:22:16 2015 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,276 +0,0 @@
-package IMPL::DOM::Navigator;
-use strict;
-use warnings;
-
-use parent qw(IMPL::Object);
-use IMPL::Class::Property;
-BEGIN {
-    private _direct property _path => prop_all;
-    private _direct property _state => prop_all;
-    private _direct property _savedstates => prop_all;
-    public property Current => {get => \&_getCurrent};
-}
-
-sub CTOR {
-    my ($this,$CurrentNode) = @_;
-    
-    die IMPL::InvalidArgumentException->new("A starting node is a required paramater") unless $CurrentNode;
-    
-    $this->{$_state} = { alternatives => [ $CurrentNode ], current => 0 };
-}
-
-sub _initNavigator {
-    my ($this,$CurrentNode) = @_;
-    
-    die IMPL::InvalidArgumentException->new("A starting node is a required paramater") unless $CurrentNode;
-    
-    $this->{$_state} = { alternatives => [ $CurrentNode ], current => 0 };
-    delete $this->{$_path};
-    delete $this->{$_savedstates};
-}
-
-sub _getCurrent {
-    $_[0]->{$_state}{alternatives}[$_[0]->{$_state}{current}]
-}
-
-sub Navigate {
-    my ($this,@path) = @_;
-    
-    return unless @path;
-    
-    my $node;
-    
-    foreach my $query (@path) {
-        if (my $current = $this->Current) {
-            
-            my @alternatives = $current->selectNodes($query);
-            
-            unless (@alternatives) {
-                $current = $this->advanceNavigator or return;
-                @alternatives = $current->selectNodes($query);
-            }
-            
-            push @{$this->{$_path}},$this->{$_state};
-            $this->{$_state} = {
-                alternatives => \@alternatives,
-                current => 0,
-                query => $query
-            };
-            
-            $node = $alternatives[0];
-        } else {
-            return;
-        }
-    }
-    
-    $node;
-}
-
-sub selectNodes {
-    my ($this,@path) = @_;
-    
-    return $this->Current->selectNodes(@path);
-}
-
-sub internalNavigateNodeSet {
-    my ($this,@nodeSet) = @_;
-    
-    push @{$this->{$_path}}, $this->{$_state};
-    
-    $this->{$_state} = {
-        alternatives => \@nodeSet,
-        current => 0
-    };
-    
-    $nodeSet[0];
-}
-
-sub fetch {
-    my ($this) = @_;
-    
-    my $result = $this->Current;
-    $this->advanceNavigator;
-    return $result;
-}
-
-sub advanceNavigator {
-    my ($this) = @_;
-    
-    $this->{$_state}{current}++;
-    
-    if (@{$this->{$_state}{alternatives}} <= $this->{$_state}{current}) {
-        if ( exists $this->{$_state}{query} ) {
-            my $query = $this->{$_state}{query};
-  
-            $this->Back or return; # that meams the end of the history
-
-            undef while ( $this->advanceNavigator and not $this->Navigate($query));
-
-            return $this->Current;
-        }
-        return;
-    }
-    
-    return $this->Current;
-}
-
-sub doeach {
-    my ($this,$code) = @_;
-    local $_;
-    
-    do {
-        for (my $i = $this->{$_state}{current}; $i < @{$this->{$_state}{alternatives}}; $i++) {
-            $_ = $this->{$_state}{alternatives}[$i];
-            $code->();
-        }
-        $this->{$_state}{current} = @{$this->{$_state}{alternatives}};
-    } while ($this->advanceNavigator);
-}
-
-sub Back {
-    my ($this,$steps) = @_;
-    
-    if ($this->{$_path} and @{$this->{$_path}}) {
-        if ( (not defined $steps) || $steps == 1) {
-            $this->{$_state} = pop @{$this->{$_path}};
-        } elsif ($steps > 0) {
-            $steps = @{$this->{$_path}} - 1 if $steps >= @{$this->{$_path}};
-            
-            $this->{$_state} = (splice @{$this->{$_path}},-$steps)[0];
-        }
-        $this->Current if defined wantarray;
-    } else {
-        return;
-    }
-}
-
-sub PathToString {
-    my ($this,$delim) = @_;
-    
-    $delim ||= '/';
-    
-    join($delim,map $_->{alternatives}[$_->{current}]->nodeName, $this->{$_path} ? (@{$this->{$_path}}, $this->{$_state}) : $this->{$_state});
-}
-
-sub pathLength {
-    my ($this) = @_;
-    $this->{$_path} ? scalar @{$this->{$_path}} : 0;
-}
-
-sub GetNodeFromHistory {
-    my ($this,$index) = @_;
-    
-    if (my $state = $this->{$_path} ? $this->{$_path}->[$index] : undef ) {
-        return $state->{alternatives}[$state->{current}]
-    } else {
-        return;
-    }
-}
-
-sub clone {
-    my ($this) = @_;
-    
-    my $newNavi = __PACKAGE__->surrogate;
-    
-    $newNavi->{$_path} = [ map { { %{ $_ } }  } @{$this->{$_path}} ] if $this->{$_path};
-    $newNavi->{$_state} = { %{$this->{$_state}} };
-    
-    return $newNavi;
-    
-}
-
-sub saveState {
-    my ($this) = @_;
-    
-    my %state;
-    
-    $state{path} = [ map { { %{ $_ } }  } @{$this->{$_path}} ] if $this->{$_path};
-    $state{state} = { %{$this->{$_state}} };
-    
-    push @{$this->{$_savedstates}}, \%state;
-}
-
-sub restoreState {
-    my ($this) = @_;
-    
-    if ( my $state = pop @{$this->{$_savedstates}||[]} ) {
-        $this->{$_path} = $state->{path};
-        $this->{$_state} = $state->{state};
-    }
-}
-
-sub applyState {
-    my ($this) = @_;
-    
-    pop @{$this->{$_savedstates}||[]};
-}
-
-sub dosafe {
-    my ($this,$transaction) = @_;
-    
-    $this->saveState();
-    
-    my $result;
-    
-    eval {
-        $result = $transaction->();
-    };
-    
-    if ($@) {
-        $this->restoreState();
-        return;
-    } else {
-        $this->applyState();
-        return $result;
-    }
-}
-
-1;
-
-__END__
-=pod
-
-=head1 DESCRIPTION
-
-Объект для хождения по дереву DOM объектов.
-
-Результатом навигации является множество узлов (альтернатив).
-
-Состоянием навигатора является текущий набор узлов, позиция в данном наборе,
-а также запрос по которому были получены данные результаты.
-
-Если при навигации указан путь сосящий из нескольких фильтров, то он разбивается
-этапы простой навигации по кадой из частей пути. На каждом элементарном этапе
-навигации образуется ряд альтернатив, и при каждом следующем этапе навигации
-альтернативы предыдущих этапов могут перебираться, до получения положительного
-результата навигации, в противном случае навигация считается невозможной.
-
-=head1 METHODS
-
-=over
-
-=item C<<$obj->new($nodeStart)>>
-
-Создает объект навигатора с указанной начальной позицией.
-
-=item C<<$obj->Navigate([$query,...])>>
-
-Перейти в новый узел используя запрос C<$query>. На данный момент запросом может
-быть только имя узла и будет взят только первый узел. Если по запросу ничего не
-найдено, переход не будет осуществлен.
-
-Возвращает либо новый узел в который перешли, либо C<undef>.
-
-=item C<<$obj->Back()>>
-
-Возвращается в предыдущий узел, если таковой есть.
-
-Возвращает либо узел в который перешли, либо C<undef>.
-
-=item C<<$obj->advanceNavigator()>>
-
-Переходит в следующую альтернативу, соответствующую текущему запросу.
-
-=back
-
-=cut