Merge pull request #18 from rjbs/ctx-ref-safe

do not die when $ctx is non-hash non-blessed ref
yanick · Mar 4, 2015 · c093d15 · c093d15
2 parents 94e73a8 + b064b71
commit c093d15
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Template/Mustache.pm b/lib/Template/Mustache.pm
@@ -9,6 +9,7 @@ use warnings;
 
 use CGI ();
 use File::Spec;
+use Scalar::Util 'blessed';
 
 use version 0.77; our $VERSION = qv("v0.5.1");
 
@@ -275,8 +276,7 @@ sub lookup {
             next unless exists $ctx->{$field};
             $value = $ctx->{$field};
             last;
-        } else {
-            next unless UNIVERSAL::can($ctx, $field);
+        } elsif (blessed($ctx) && $ctx->can($field)) {;
             $value = $ctx->$field();
             last;
         }