File Coverage

blib/lib/Parse/BBCode/SCEditor.pm

Criterion	Covered	Total	%
statement	16	26	61.5
branch	0	6	0.0
condition			n/a
subroutine	6	9	66.6
pod	0	3	0.0
total	22	44	50.0

package Parse::BBCode::SCEditor;
BEGIN {
  $Parse::BBCode::SCEditor::AUTHORITY = 'cpan:GETTY';
}
# ABSTRACT: Parse::BBCode::HTML specific for SCEditor
$Parse::BBCode::SCEditor::VERSION = '0.001';
use strict;
use warnings;
use Carp qw(croak carp);
use base qw/ Parse::BBCode /;
use Parse::BBCode::HTML;

my %default_tags = (
  Parse::BBCode::HTML->defaults(),
  's' => '%s',
  'sub' => '%s',
  'sup' => '%s',
  'font' => '%s',
  'size' => '%s',
  'color' => '%s',
  'center' => '%s',
  'right' => '%s',
  'justify' => '%s',
  'ul' => '%s',
  'ol' => '%s',
  'li' => '%s',
  'table' => {
    code => sub {
      my ($parser, $attr, $content, $attribute_fallback) = @_;
      $$content =~ s{\r?\n|\r}{}g;
      return "$$content";
    },
    parse => 1,
    class => 'block',
  },
  'tr' => '
  'td' => '
  'hr' => {
    class => 'block',
    output => '',
    single => 1,
  },
  'code' => {
    code => sub {
      my ($parser, $attr, $content, $attribute_fallback) = @_;
      $content = Parse::BBCode::escape_html($$content);
      $content =~ s{\r?\n|\r}{\n}g;
      return "$content";
    },
    parse => 0,
    class => 'block',
  },
  'quote' => '%s',
  '' => sub {
    my ($parser, $tag, $content, $info) = @_;
    my $text = Parse::BBCode::escape_html($content);
    my $in = $info->{stack}->[-1];
    if ($in eq 'table' || $in eq 'tr' || $in eq 'ol' || $in eq 'ul') {
      # explicit not adding the
    } else {
      $text =~ s{\r?\n|\r}{\n}g;
    }
    $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__