lib/HTML/String/Overload.pm

   1 package HTML::String::Overload;
   2
   3 use strictures 1;
   4 use HTML::String::Value;
   5 use B::Hooks::EndOfScope;
   6 use overload ();
   7
   8 sub import {
   9     my ($class, @opts) = @_;
  10     overload::constant q => sub {
  11         HTML::String::Value->new($_[1], @opts);
  12     };
  13     on_scope_end { __PACKAGE__->unimport };
  14 }
  15
  16 sub unimport {
  17     overload::remove_constant('q');
  18 }
  19
  20 1;