/usr/share/perl5/Parse/BBCode/Markdown.pm is in libparse-bbcode-perl 0.15-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 117 118 119 120 121 122 123 124 125 | package Parse::BBCode::Markdown;
$Parse::BBCode::Markdown::VERSION = '0.15';
use strict;
use warnings;
use Carp qw(croak carp);
use URI::Escape;
use base qw/ Parse::BBCode /;
my %default_tags = (
'b' => '*%s*',
'i' => '__%s__',
'u' => '_%s_',
# 
'img' => '',
'url' => 'url:[%s](%{link}A)',
'email' => 'url:[%s](mailto:%{email}A)',
'size' => '%s',
'color' => '%s',
'list' => 'block:%{parse}s',
'*' => {
parse => 1,
output => '* %s',
close => 0,
class => 'block',
},
quote => {
parse => 1,
class => 'block',
code => sub {
my ($parser, $attr, $content, $attribute_fallback) = @_;
$$content =~ s/^/> /gm;
$$content =~ s/^> >/>>/gm;
"$attribute_fallback:\n$$content\n";
},
},
'code' => {
code => sub {
my ($parser, $attr, $content, $attribute_fallback) = @_;
$$content =~ s/^/| /gm;
return "Code $attribute_fallback:\n" . ('-' x 20) . "\n$$content\n" . ('-' x 20);
},
class => 'block',
},
'' => sub {
my $text = $_[2];
$text;
},
);
my %optional_tags = (
# Parse::BBCode::HTML->optional(),
);
my %default_escapes = (
Parse::BBCode::HTML->default_escapes
);
sub defaults {
my ($class, @keys) = @_;
return @keys
? (map { $_ => $default_tags{$_} } grep { defined $default_tags{$_} } @keys)
: %default_tags;
}
sub default_escapes {
my ($class, @keys) = @_;
return @keys
? (map { $_ => $default_escapes{$_} } grep { defined $default_escapes{$_} } @keys)
: %default_escapes;
}
sub optional {
my ($class, @keys) = @_;
return @keys ? (grep defined, @optional_tags{@keys}) : %optional_tags;
}
1;
__END__
=pod
=head1 NAME
Parse::BBCode::Markdown - Provides Markdown defaults for Parse::BBCode
=head1 SYNOPSIS
use Parse::BBCode::Markdown;
my $p = Parse::BBCode::Markdown->new();
my $code = 'some [b]b code[/b]';
my $parsed = $p->render($code);
=head1 DESCRIPTION
This module is experimental and subject to change.
=head1 METHODS
=over 4
=item defaults
Returns a hash with default tags.
b, i, u, img, url, email, size, color, list, *, quote, code
=item default_escapes
Returns a hash with escaping functions.
html, uri, link, email, htmlcolor, num
=item optional
Returns a hash of optional tags.
html
=back
=cut
|