Create a gist now

Instantly share code, notes, and snippets.

HTML::Shakan::Renderer::HTML::SelectivelyEncodable
package HTML::Shakan::Renderer::HTML::SelectivelyEncodable;
use HTML::Shakan::Utils;
use Any::Moose '::Role';
sub selectively_encode {
my ($self, $label) = @_;
my $label_for_render = $label;
my $prefix = q{};
my $suffix = q{};
if (
$label_for_render =~ s{
\A
(
<
[^>]+
>
)?
(
.+?
)
(
<
[^>]+
>
)?
\z
}{$2}xms
) {
$prefix = defined $1 ? $1 : q{};
$suffix = defined $3 ? $3 : q{};
}
return $prefix . encode_entities($label_for_render) . $suffix;
}
no Any::Moose '::Role';
1;
__END__
=head1 DESCRIPTION
labelに項目ガイドへのリンクを仕込んでも、しっかりエスケープされるので、
&lt;label for=&quot;foo&quot;&gt;&lt;a href=&quot;http://sample.example/help/foo/&quot;&gt;foo&lt;/a&gt;&lt;/label&gt;
エスケープされる範囲を限定してしまう。
<label for="foo"><a href="http://sample.example/help/foo/">foo</a></label>
=head1 SEE ALSO
=over 4
=item HTML::Shakan::Renderer::HTML::DefinitionList
http://gist.github.com/148522
=item HTML::Shakan::Renderer::HTML::SelectivelyEncodable
http://gist.github.com/148523
=item HTML::Shakan::Renderer::HTML::DateTimeSeparatable
http://gist.github.com/148524
=back
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment