use strict;
use SL::Presenter::EscapedText qw(escape);
+use SL::HTML::Restrict;
use Exporter qw(import);
-our @EXPORT_OK = qw(format_man_days simple_format truncate);
+our @EXPORT_OK = qw(format_man_days simple_format truncate restricted_html);
our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
use Carp;
+my $html_cleaner;
+
sub truncate {
my ($text, %params) = @_;
escape($output);
}
+sub restricted_html {
+ my ($value) = @_;
+ $html_cleaner //= SL::HTML::Restrict->create;
+ return $html_cleaner->process($value);
+}
+
1;
__END__
one. Single newlines are converted to line breaks. Carriage returns
are removed.
+=item C<restricted_html $unsafe_html>
+
+Returns HTML code stripped from unwanted/unsupported content. This is
+done via the module L<SL::HTML::Restrict>.
+
=back
=head1 BUGS
sub div_tag { return _call_presenter('div_tag', @_); }
sub radio_button_tag { return _call_presenter('radio_button_tag', @_); }
sub img_tag { return _call_presenter('img_tag', @_); }
+sub restricted_html { return _call_presenter('restricted_html', @_); }
sub _set_id_attribute {
my ($attributes, $name, $unique) = @_;