dear TT, you are a pain in the buttocks

[scpubgit/HTML-String.git] / lib / HTML / String / Value.pm

diff --git a/lib/HTML/String/Value.pm b/lib/HTML/String/Value.pm
index e1f6c95..d6bac14 100644 (file)
--- a/lib/HTML/String/Value.pm
+++ b/lib/HTML/String/Value.pm
@@ -119,7 +119,7 @@ sub can {
     return (
         do {
             local $@;
-            eval { blessed($self) and $self->_hsv_unescaped_string->isa(@_) }
+            eval { blessed($self) and $self->_hsv_unescaped_string->can(@_) }
         }
         or $self->SUPER::can(@_)
     );