File Coverage

blib/lib/SpeL/Object/Relation.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	7	8	87.5
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	42	43	97.6

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


use strict;
use warnings;
package SpeL::Object::Relation;

use SpeL::Object::RelOperator;
use SpeL::Object::Expression;

use parent 'Exporter';
use Carp;

use Data::Dumper;



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

  return
    ( exists $self->{Left} ? $self->{Left}->read( $level + 1 ) : '' )
    . ' ' .
    ( exists $self->{RelationChain} ?
      join( ' ', map { $_->{RelOperator}->read( $level + 1 ) .
			 ( exists $_->{Right} ?
			   ' ' . $_->{Right}->read( $level + 1 ) : '' ) }
	    @{$self->{RelationChain}} ) : '' ) .
    ( defined $separator ? $separator : '' );
}

1;

__END__