Mercurial > pub > Impl
view Lib/IMPL/Resources/Format.pm @ 241:f48a1a9f4fa2
+Added ViewResult to allow implementation of the view environment.
*TTDocuments now storing creation parameters
*TTControls automatically propagating layout and title meta to their attributes
+Added UnauthorizaedException web exception
*minor fixes
author | sergey |
---|---|
date | Thu, 18 Oct 2012 04:49:55 +0400 |
parents | 4d0e1962161c |
children | 010ceafd0c5a |
line wrap: on
line source
package IMPL::Resources::Format; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(&FormatMessage); sub FormatMessage { my ($string,$args,$resolver) = @_; $args ||= {}; $resolver ||= \&_defaultResolver; $string =~ s/%(\w+(?:\.\w+)*)%/_getvalue($args,$1,"\[$1\]",$resolver)/ge; return $string; } sub _getvalue { my ($obj,$path,$default,$resolver) = @_; foreach my $chunk (split /\./,$path) { return $default unless $obj; if (ref $obj eq 'HASH') { $obj = $obj->{$chunk}; } else { $obj = $resolver->($obj,$chunk); } } return $obj; } sub _defaultResolver { my ($obj,$prop) = @_; return ( eval { $obj->can($prop) } ? $obj->$prop() : undef ); } 1;