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

package HTML::String::Overload;

use strictures 1;
use HTML::String;
use B::Hooks::EndOfScope;
use overload ();

sub import {
    overload::constant q => \&html;
    on_scope_end { __PACKAGE__->unimport };
}

sub unimport {
    overload::remove_constant('q');
}

1;
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
e1b4b35c	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;