Mercurial > pub > Impl
diff Lib/IMPL/lang.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 | 47dac58691ee |
| children | 6adaeb86945d |
line wrap: on
line diff
--- a/Lib/IMPL/lang.pm Tue Apr 10 08:13:22 2012 +0400 +++ b/Lib/IMPL/lang.pm Tue Apr 10 20:08:29 2012 +0400 @@ -10,224 +10,224 @@ our @EXPORT = qw(&is); our %EXPORT_TAGS = ( - base => [ - qw( - &is - &clone - ) - ], - constants => [ - qw( - &ACCESS_PUBLIC - &ACCESS_PROTECTED - &ACCESS_PRIVATE - &PROP_GET - &PROP_SET - &PROP_OWNERSET - &PROP_LIST - &PROP_ALL - ) - ], + base => [ + qw( + &is + &clone + ) + ], + constants => [ + qw( + &ACCESS_PUBLIC + &ACCESS_PROTECTED + &ACCESS_PRIVATE + &PROP_GET + &PROP_SET + &PROP_OWNERSET + &PROP_LIST + &PROP_ALL + ) + ], - declare => [ - qw( - &public - &protected - &private - &virtual - &property - &static - &property - ) - ], - compare => [ - qw( - &equals - &equals_s - &hashCompare - ) - ], - hash => [ - qw( - &hashApply - &hashMerge - &hashDiff - &hashCompare - &hashParse - &hashSave - ) - ] + declare => [ + qw( + &public + &protected + &private + &virtual + &property + &static + &property + ) + ], + compare => [ + qw( + &equals + &equals_s + &hashCompare + ) + ], + hash => [ + qw( + &hashApply + &hashMerge + &hashDiff + &hashCompare + &hashParse + &hashSave + ) + ] ); 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 + ACCESS_PUBLIC => 1, + ACCESS_PROTECTED => 2, + ACCESS_PRIVATE => 3, + PROP_GET => 1, + PROP_SET => 2, + PROP_OWNERSET => 10, + PROP_LIST => 4, + PROP_ALL => 3 }; sub is($$) { - eval { $_[0]->isa( $_[1] ) }; + eval { $_[0]->isa( $_[1] ) }; } sub virtual($) { - $_[0]->Virtual(1); - $_[0]; + $_[0]->Virtual(1); + $_[0]; } sub public($) { - $_[0]->Access(ACCESS_PUBLIC); - $_[0]->Implement; - $_[0]; + $_[0]->Access(ACCESS_PUBLIC); + $_[0]->Implement; + $_[0]; } sub private($) { - $_[0]->Access(ACCESS_PRIVATE); - $_[0]->Implement; - $_[0]; + $_[0]->Access(ACCESS_PRIVATE); + $_[0]->Implement; + $_[0]; } sub protected($) { - $_[0]->Access(ACCESS_PROTECTED); - $_[0]->Implement; - $_[0]; + $_[0]->Access(ACCESS_PROTECTED); + $_[0]->Implement; + $_[0]; } sub property($$;$) { - my ( $propName, $mutators, $attributes ) = @_; - my $Info = new IMPL::Class::PropertyInfo( - { - Name => $propName, - Mutators => $mutators, - Class => scalar(caller), - Attributes => $attributes - } - ); - return $Info; + my ( $propName, $mutators, $attributes ) = @_; + my $Info = new IMPL::Class::PropertyInfo( + { + Name => $propName, + Mutators => $mutators, + Class => scalar(caller), + Attributes => $attributes + } + ); + return $Info; } sub static($$) { - my ( $name, $value ) = @_; - my $class = caller; - $class->static_accessor( $name, $value ); + my ( $name, $value ) = @_; + my $class = caller; + $class->static_accessor( $name, $value ); } sub equals { - if (defined $_[0]) { - return 0 if (not defined $_[1]); - - return $_[0] == $_[1]; - } else { - return 0 if defined $_[1]; - - return 1; - } + if (defined $_[0]) { + return 0 if (not defined $_[1]); + + return $_[0] == $_[1]; + } else { + return 0 if defined $_[1]; + + return 1; + } } sub equals_s { - if (defined $_[0]) { - return 0 if (not defined $_[1]); - - return $_[0] eq $_[1]; - } else { - return 0 if defined $_[1]; - - return 1; - } + if (defined $_[0]) { + return 0 if (not defined $_[1]); + + return $_[0] eq $_[1]; + } else { + return 0 if defined $_[1]; + + return 1; + } } sub hashDiff { - my ($src,$dst) = @_; - - $dst = $dst ? { %$dst } : {} ; - $src ||= {}; - - my %result; - - foreach my $key ( keys %$src ) { - if (exists $dst->{$key}) { - $result{"+$key"} = $dst->{$key} unless equals_s($dst->{$key}, $src->{$key}); - delete $dst->{$key}; - } else { - $result{"-$key"} = 1; - } - } - - $result{"+$_"} = $dst->{$_} foreach keys %$dst; - - return \%result; + my ($src,$dst) = @_; + + $dst = $dst ? { %$dst } : {} ; + $src ||= {}; + + my %result; + + foreach my $key ( keys %$src ) { + if (exists $dst->{$key}) { + $result{"+$key"} = $dst->{$key} unless equals_s($dst->{$key}, $src->{$key}); + delete $dst->{$key}; + } else { + $result{"-$key"} = 1; + } + } + + $result{"+$_"} = $dst->{$_} foreach keys %$dst; + + return \%result; } sub hashMerge { - return hashApply( { %{$_[0]} }, $_[1] ); + return hashApply( { %{$_[0]} }, $_[1] ); } sub hashApply { - my ($target,$diff) = @_; - - while ( my ($key,$value) = each %$diff) { - $key =~ /^(\+|-)?(.*)$/; - my $op = $1 || '+'; - $key = $2; - - if ($op eq '-') { - delete $target->{$key}; - } else { - $target->{$key} = $value; - } - } - - return $target; + my ($target,$diff) = @_; + + while ( my ($key,$value) = each %$diff) { + $key =~ /^(\+|-)?(.*)$/; + my $op = $1 || '+'; + $key = $2; + + if ($op eq '-') { + delete $target->{$key}; + } else { + $target->{$key} = $value; + } + } + + return $target; } sub hashCompare { - my ($l,$r,$cmp) = @_; - - $cmp ||= \&equals_s; - - return 0 unless scalar keys %$l == scalar keys %$r; - &$cmp($l->{$_},$r->{$_}) || return 0 foreach keys %$l; - - return 1; + my ($l,$r,$cmp) = @_; + + $cmp ||= \&equals_s; + + return 0 unless scalar keys %$l == scalar keys %$r; + &$cmp($l->{$_},$r->{$_}) || return 0 foreach keys %$l; + + return 1; } sub hashParse { - my ($s,$p,$d) = @_; - - $p = $p ? qr/$p/ : qr/\n+/; - $d = $d ? qr/$d/ : qr/\s*=\s*/; - - return { - map split($d,$_,2), split($p,$s) - }; + my ($s,$p,$d) = @_; + + $p = $p ? qr/$p/ : qr/\n+/; + $d = $d ? qr/$d/ : qr/\s*=\s*/; + + return { + map split($d,$_,2), split($p,$s) + }; } sub hashSave { - my ($hash,$p,$d) = @_; - - return "" unless ref $hash eq 'HASH'; - - $p ||= "\n"; - $d ||= " = "; - - return - join( - $p, - map( - join( - $d, - $_, - $hash->{$_} - ), - keys %$hash - ) - ); + my ($hash,$p,$d) = @_; + + return "" unless ref $hash eq 'HASH'; + + $p ||= "\n"; + $d ||= " = "; + + return + join( + $p, + map( + join( + $d, + $_, + $hash->{$_} + ), + keys %$hash + ) + ); } 1;