File Coverage

blib/lib/HTML/String/Overload.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             package HTML::String::Overload;
2              
3 1     1   705 use strictures 1;
  1         10  
  1         34  
4 1     1   105 use HTML::String::Value;
  1         1  
  1         97  
5 1     1   886 use B::Hooks::EndOfScope;
  1         20376  
  1         7  
6 1     1   67 use overload ();
  1         2  
  1         122  
7              
8             sub import {
9 3     3   282 my ($class, @opts) = @_;
10             overload::constant q => sub {
11 7     7   75 HTML::String::Value->new($_[1], @opts);
12 3         14 };
13 3     3   64 on_scope_end { __PACKAGE__->unimport };
  3         20  
14             }
15              
16             sub unimport {
17 3     3   7 overload::remove_constant('q');
18             }
19              
20             1;
21              
22             __END__