diff Lib/IMPL/Resources/Format.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 e6447ad85cb4
children 010ceafd0c5a
line wrap: on
line diff
--- a/Lib/IMPL/Resources/Format.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Resources/Format.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -21,7 +21,7 @@
     my ($obj,$path,$default,$resolver) = @_;
     
     foreach my $chunk (split /\./,$path) {
-    	return $default unless $obj;
+        return $default unless $obj;
         if (ref $obj eq 'HASH') {
             $obj = $obj->{$chunk};
         } else {
@@ -32,9 +32,9 @@
 }
 
 sub _defaultResolver {
-	my ($obj,$prop) = @_;
-	
-	return ( eval { $obj->can($prop) } ? $obj->$prop() : undef );
+    my ($obj,$prop) = @_;
+    
+    return ( eval { $obj->can($prop) } ? $obj->$prop() : undef );
 }
 
 1;