/usr/share/perl5/HTML/Widget/Element/Span.pm is in libhtml-widget-perl 1.11-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | package HTML::Widget::Element::Span;
use warnings;
use strict;
use base 'HTML::Widget::Element';
__PACKAGE__->mk_accessors(qw/content/);
=head1 NAME
HTML::Widget::Element::Span - Span Element
=head1 SYNOPSIS
my $e = $widget->element( 'Span', 'foo' );
$e->content('bar');
=head1 DESCRIPTION
Span Element.
=head1 METHODS
=head2 content
C<content()> can contain a string, an
L<HTML::Element|HTML::Element> object, or an array-ref of
L<HTML::Element|HTML::Element> objects.
=head2 containerize
=cut
sub containerize {
my ( $self, $w ) = @_;
my $content = $self->content;
$self->attributes->{class} ||= 'span';
my $e = HTML::Element->new( 'span', id => $self->id($w) );
my @content
= ( $content && ref($content) eq 'ARRAY' ) ? @$content : ($content)
if defined $content;
$e->push_content(@content) if @content;
$e->attr( $_ => ${ $self->attributes }{$_} )
for ( keys %{ $self->attributes } );
return $self->container( { element => $e } );
}
=head2 new
Sets L<HTML::Widget::Element/allow_filter> to false, so that filters added
by C<< $widget->filter_all >> won't be applied to Span elements.
Sets L<HTML::Widget::Element/allow_constraint> to false, so that constraints
added by C<< $widget->constraint_all >> won't be applied to Span elements.
=cut
sub new {
my $self = shift->NEXT::new(@_);
$self->allow_filter(0)->allow_constraint(0);
return $self;
}
=head1 SEE ALSO
L<HTML::Widget::Element>
=head1 AUTHOR
Sebastian Riedel, C<sri@oook.de>
=head1 LICENSE
This library is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
1;
|