/usr/share/perl5/Text/Trac/BlockNode.pm is in libtext-trac-perl 0.16-1.
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 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 | package Text::Trac::BlockNode;
use strict;
use base qw( Class::Accessor::Fast Class::Data::Inheritable );
use UNIVERSAL::require;
use Text::Trac::InlineNode;
our $VERSION = '0.16';
__PACKAGE__->mk_classdata(
block_nodes => [ qw( heading hr p ul ol blockquote pre table dl ) ]
);
#__PACKAGE__->mk_classdata(
# inline_nodes => [ qw( bold_italic bold italic underline monospace strike sup sub br
# auto_link_http macro trac_links ) ]
#);
__PACKAGE__->mk_classdata(
block_parsers => []
);
__PACKAGE__->mk_classdata(
inline_parsers => []
);
__PACKAGE__->mk_accessors( qw( context pattern inline_parser ) );
sub new {
my ( $class, $params ) = @_;
my $self = {
%$params,
};
bless $self, $class;
$self->init;
$self->inline_parser( Text::Trac::InlineNode->new($self->context));
return $self;
}
sub init {
my $self = shift;
return $self;
}
sub parse {
my $self = shift;
my $c = $self->context;
$self->block_parsers( $self->_get_parsers('block') );
#$self->inline_parsers( $self->_get_parsers('inline') );
while ( defined ( my $l = $c->shiftline ) ) {
next if $l =~ /^$/;
for my $parser ( @{ $self->_get_matched_parsers('block', $l) } ){
$parser->parse($l);
}
}
}
sub escape {
my ( $self, $l ) = @_;
return $self->inline_parser->escape($l);
}
sub replace {
my ( $self, $l ) = @_;
return $self->inline_parser->parse($l);
}
sub _get_parsers {
my ( $self, $type ) = @_;
$type .= '_nodes';
my @parsers;
for ( @{ $self->$type } ){
my $class = 'Text::Trac::' . $self->_camelize($_);
$class->require;
push @parsers, $class->new({ context => $self->context });
}
return \@parsers;
}
sub _get_matched_parsers {
my ( $self, $type, $l ) = @_;
my $c = $self->context;
$type .= '_parsers';
my @matched_parsers;
for my $parser ( @{ $self->$type } ){
next if ( grep { ref($parser) eq 'Text::Trac::'. $self->_camelize($_) } @{$c->in_block_of}
and $type =~ /^block/ );
my $pattern = $parser->pattern or next;
if ($l =~ /$pattern/) {
push @matched_parsers, $parser;
}
}
push @matched_parsers, Text::Trac::P->new({ context => $self->context })
if( !@matched_parsers and $type =~ /^block/ );
return \@matched_parsers;
}
sub _camelize {
my ( $self, $word ) = @_;
my $camelized_word;
for ( split '_', $word ){
chomp($_);
$camelized_word .= ucfirst($_);
}
return $camelized_word;
}
1;
|