File Coverage

blib/lib/Code/Perl/Expr/Append.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1             # $Header: /home/fergal/my/cvs/Code-Perl/lib/Code/Perl/Expr/Append.pm,v 1.2 2003/06/17 17:43:39 fergal Exp $
2              
3 1     1   5 use strict;
  1         2  
  1         44  
4              
5             package Code::Perl::Expr::Append;
6              
7 1     1   6 use base qw( Code::Perl::Expr::Infix );
  1         1  
  1         605  
8              
9             sub init
10             {
11 1     1 0 3 my $self = shift;
12              
13 1         57 $self->setOp(".");
14             }
15              
16             sub eval
17             {
18 1     1 0 3 my $self = shift;
19              
20 1         36 my $exprs = $self->getExprs;
21 1         13 return join("", map {$_->eval} @$exprs);
  3         30  
22             }
23              
24             1;