1# $Header: /home/fergal/my/cvs/Code-Perl/lib/Code/Perl/Expr/Infix.pm,v 1.2 2003/06/17 17:43:39 fergal Exp $ 2 3use strict; 4 5package Code::Perl::Expr::Infix; 6 7use base qw( Code::Perl::Expr::Base ); 8 9use Class::MethodMaker ( 10 get_set => [qw( -java Exprs Op )] 11); 12 13sub perl 14{ 15 my $self = shift; 16 17 my $op = $self->getOp; 18 my @exprs = map {"(".$_->perl.")"} @{$self->getExprs}; 19 20 return join(" $op ", @exprs); 21} 22 231; 24