/usr/share/perl5/Template/Plugin/Textile2.pm is in libtemplate-plugin-textile2-perl 1.21-5.
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 | package Template::Plugin::Textile2;
use strict;
use warnings;
use Template::Plugin::Filter;
use Text::Textile;
our $VERSION = "1.21";
use base qw/Template::Plugin::Filter/;
sub init {
my ($self, $args) = @_;
die 'Args must be an hashref'
if (defined $args) && (ref $args ne 'HASH');
$self-> { _FORMAT_MODE }
= $args->{format_mode} || 'default';
delete $args->{format_mode};
$self->{ _TEXTILE } = Text::Textile->new(
%$args
);
my $name = $self->{ _CONFIG }->{ name } || 'textile2';
$self->install_filter($name);
return $self;
}
sub filter {
my ($self, $text) = @_;
if ( $self->{_FORMAT_MODE} eq 'inline' ) {
return $self->{_TEXTILE}->format_inline(text => $text);
}
else {
return $self->{_TEXTILE}->process($text);
}
}
1;
__END__
=head1 NAME
Template::Plugin::Textile2 - Use Textile formatting with Template Toolkit
=head1 SYNOPSIS
[% USE Textile2 -%]
[% FILTER textile2 %]This *bold* and this is _italic_.[% END %]
<p>this is <strong>bold</strong> and this is <em>italic</em>.
[% USE Textile2 ( disable_html => 1 ) -%]
[% FILTER textile2 %]this is<br /> _italic_.[% END %]
<p>this is<br /> <em>italic</em>.</p>
=head1 DESCRIPTION
This module wraps Text::Textile into a plugin Template Toolkit. It
provides a filter named C<textile2>.
This aims to be a more feature-full version L<Template::Plugin::Textile>,
by allowing you to pass parameters to L<Text::Textile>.
Use this way:
[% FILTER textile2 %]
Reasons to use the Template Toolkit:
* Seperation of concerns.
* It's written in Perl.
* Badgers are Still Cool.
[% END %]
or:
[% mytext | textile2 %]
You can pass the same options you would pass to Text::Textile, directly
when using the template. For instance to disable processing of HTML
tags you can do:
[% USE Textile2 ( disable_html => 1 ) %]
To avoid your text to be wrapped into C<<p>...</p>> you can
use:
[% USE Textile2 ( format_mode => 'inline' ) %]
See L<Text::Textile> for details.
=head1 AUTHOR
Michele Beltrame C<mb@italpro.net>.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=head1 SEE ALSO
L<Text::Textile>, L<Template>
=cut
|