/usr/share/perl5/HTML/Widget/BlockContainer.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 | package HTML::Widget::BlockContainer;
use warnings;
use strict;
use base 'HTML::Widget::Container';
use Carp qw/croak/;
__PACKAGE__->mk_accessors(qw/content pre_content post_content wrap_sub/);
=head1 NAME
HTML::Widget::BlockContainer - Block Container
=head1 DESCRIPTION
A Container for Block elements. See L<HTML::Widget::Element::Block>
and L<HTML::Widget::Container>.
=head1 METHODS
=cut
sub _build_element {
my ( $self, $element ) = @_;
return () unless $element;
if ( ref $element eq 'ARRAY' ) {
croak("Not expecting an array");
}
my $wrap_sub = $self->wrap_sub || sub { return (@_); };
my $e = $element->clone;
$e->push_content( @{ $self->pre_content } ) if $self->pre_content;
$e->push_content( map { &$wrap_sub( $_->as_list ); } @{ $self->content } );
$e->push_content( @{ $self->post_content } ) if $self->post_content;
if ( $self->label ) {
my $l = $self->label->clone;
$e = $l->push_content($e);
}
return ($e);
}
=head1 AUTHOR
Michael Gray, C<mjg@cpan.org>
=cut
1;
|