Revision 06a0f32d
Von Sven Schöling vor mehr als 10 Jahren hinzugefügt
| SL/HTML/Util.pm | ||
|---|---|---|
| 17 | 17 |
|
| 18 | 18 |
my $value = !ref($class_or_value) && (($class_or_value // '') eq 'SL::HTML::Util') ? $_[1] : $class_or_value; |
| 19 | 19 |
|
| 20 |
return '' unless $value; |
|
| 20 |
return '' unless defined $value; |
|
| 21 |
|
|
| 22 |
# Remove HTML comments. |
|
| 23 |
$value =~ s{ <!-- .*? --> }{}gx;
|
|
| 21 | 24 |
|
| 22 | 25 |
if (!%stripper) {
|
| 23 | 26 |
%stripper = ( parser => HTML::Parser->new ); |
Auch abrufbar als: Unified diff
HTML::Util: Tests, und Bugfixes für ein paar Randbedingungen