options to ignore specific callers, more TT tests

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

diff --git a/lib/HTML/String/Overload.pm b/lib/HTML/String/Overload.pm
index 1191c4a..3c72850 100644 (file)
--- a/lib/HTML/String/Overload.pm
+++ b/lib/HTML/String/Overload.pm
@@ -1,12 +1,15 @@
 package HTML::String::Overload;
 
 use strictures 1;
-use HTML::String;
+use HTML::String::Value;
 use B::Hooks::EndOfScope;
 use overload ();
 
 sub import {
-    overload::constant q => \&html;
+    my ($class, @opts) = @_;
+    overload::constant q => sub {
+        HTML::String::Value->new($_[1], @opts);
+    };
     on_scope_end { __PACKAGE__->unimport };
 }