File Coverage

blib/lib/SpeL/Object/Element.pm

Criterion	Covered	Total	%
statement	52	53	98.1
branch	6	12	50.0
condition			n/a
subroutine	14	14	100.0
pod	1	1	100.0
total	73	80	91.2

# -*- cperl -*-
# ABSTRACT: LaTeX element object


package SpeL::Object::Element;

use SpeL::Object::VerbatimEnvironment;
use SpeL::Object::Environment;
use SpeL::Object::Group;
use SpeL::Object::MathInline;
use SpeL::Object::MathEnvironment;
use SpeL::Object::Item;
use SpeL::Object::Command;
use SpeL::Object::TokenSequence;
use SpeL::Object::Variable;
use SpeL::Object::Realnumber;

use parent 'Exporter';
use Carp;

use Data::Dumper;




sub read {
  my $self = shift;
  my ( $level ) = @_;

  exists $self->{sup} and return '^';
  exists $self->{sub} and return '_';
  exists $self->{smallspace} and return ' ';
  exists $self->{percent} and return $SpeL::I18n::lh->maketext( '%' );
  exists $self->{eol} and return "\n";
  if ( exists $self->{Docstrip} ) {
    $self->{Docstrip} =~ s/\./ dot /g;
    $self->{Docstrip} =~ s/::/ double colon /g;
    $self->{Docstrip} =~ s/:/ colon /g;
    $self->{Docstrip} =~ s/;/ semicolon /g;
    return $self->{Docstrip};
  }

  return "Error when reading Element|" . $self->{''} . "|";
}

1;

__END__