Commit | Line | Data |
---|---|---|
e1b4b35c | 1 | package HTML::String::Overload; |
2 | ||
3 | use strictures 1; | |
4 | use HTML::String; | |
5 | use B::Hooks::EndOfScope; | |
ed99cbb4 | 6 | use overload (); |
e1b4b35c | 7 | |
8 | sub import { | |
ed99cbb4 | 9 | overload::constant q => \&html; |
10 | on_scope_end { __PACKAGE__->unimport }; | |
11 | } | |
12 | ||
13 | sub unimport { | |
e1b4b35c | 14 | overload::remove_constant('q'); |
e1b4b35c | 15 | } |
16 | ||
17 | 1; |