Commit | Line | Data |
---|---|---|
e1b4b35c | 1 | use strictures 1; |
2 | use Test::More; | |
3 | use HTML::String; | |
4 | ||
5 | my $hi = 'Hi <bob>'; | |
6 | ||
7 | my $one = html('<tag>').$hi.html('</tag>'); | |
8 | ||
9 | is("$one", '<tag>Hi <bob></tag>'); | |
10 | ||
11 | my $two = do { | |
12 | use HTML::String::Overload; | |
13 | ||
ed99cbb4 | 14 | "<tag>${hi}</tag>"; |
e1b4b35c | 15 | }; |
16 | ||
17 | is("$two", '<tag>Hi <bob></tag>'); | |
18 | ||
19 | done_testing; |