File Coverage

blib/lib/Code/Perl/Expr/Infix.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
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              
3 1     1   5 use strict;
  1         2  
  1         41  
4              
5             package Code::Perl::Expr::Infix;
6              
7 1     1   5 use base qw( Code::Perl::Expr::Base );
  1         2  
  1         80  
8              
9             use Class::MethodMaker (
10 1         18 get_set => [qw( -java Exprs Op )]
11 1     1   6 );
  1         2  
12              
13             sub perl
14             {
15 1     1 0 3 my $self = shift;
16              
17 1         42 my $op = $self->getOp;
18 1         113 my @exprs = map {"(".$_->perl.")"} @{$self->getExprs};
  3         28  
  1         41  
19              
20 1         7 return join(" $op ", @exprs);
21             }
22              
23             1;