use SL::Presenter::EscapedText qw(escape);
use SL::HTML::Restrict;
+use SL::HTML::Util;
use Exporter qw(import);
our @EXPORT_OK = qw(format_man_days simple_format truncate restricted_html);
return $html_cleaner->process($value);
}
+sub stripped_html {
+ my ($value) = @_;
+ return SL::HTML::Util::strip($value);
+}
+
1;
__END__
Returns HTML code stripped from unwanted/unsupported content. This is
done via the module L<SL::HTML::Restrict>.
+=item C<stripped_html $html>
+
+Returns the raw text with all HTML tags and comments stripped. This is
+done via L<SL::HTML::Util/strip>.
+
=back
=head1 BUGS
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 stripped_html { return _call_presenter('stripped_html', @_); }
sub _set_id_attribute {
my ($attributes, $name, $unique) = @_;