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