File Coverage

blib/lib/Parse/BBCode/Markdown.pm

Criterion	Covered	Total	%
statement	19	25	76.0
branch	2	6	33.3
condition			n/a
subroutine	7	8	87.5
pod	3	3	100.0
total	31	42	73.8

package Parse::BBCode::Markdown;
$Parse::BBCode::Markdown::VERSION = '0.15_001'; # TRIAL

$Parse::BBCode::Markdown::VERSION = '0.15001';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_',
    # ![alt text](/path/to/img.jpg "Title")
    'img'   => '![%s](%A)',
    'url'   => 'url:[%s](%{link}A)',
    'email' => 'url:[%s](mailto:%{email}A)',
    'size'  => '%s',
    'color' => '%s',
    'list'  => 'block:%{parse}s',
    '*'     => {
        parse => 1,
        output => "* %s\n",
        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__