Mercurial > pub > Impl
diff Lib/IMPL/Class/Template.pm @ 194:4d0e1962161c
Replaced tabs with spaces
IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author | cin |
---|---|
date | Tue, 10 Apr 2012 20:08:29 +0400 |
parents | d1676be8afcc |
children |
line wrap: on
line diff
--- a/Lib/IMPL/Class/Template.pm Tue Apr 10 08:13:22 2012 +0400 +++ b/Lib/IMPL/Class/Template.pm Tue Apr 10 20:08:29 2012 +0400 @@ -4,10 +4,10 @@ use IMPL::_core::version; sub makeName { - my ($class,@params) = @_; - - $_ =~ s/^.*::(\w+)$/$1/ foreach @params; - return join('',$class,@params); + my ($class,@params) = @_; + + $_ =~ s/^.*::(\w+)$/$1/ foreach @params; + return join('',$class,@params); } 1; @@ -29,19 +29,19 @@ 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; - } + 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'}; + public property id => prop_get | owner_set, { type => 'integer'}; } __PACKAGE__->PassThroughArgs; @@ -52,25 +52,25 @@ 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 ); - } + 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 ) ); + 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