File Coverage

blib/lib/Code/Perl/Expr/String.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 12 91.6


line stmt bran cond sub pod time code
1             # $Header: /home/fergal/my/cvs/Code-Perl/lib/Code/Perl/Expr/String.pm,v 1.1 2003/06/17 14:14:21 fergal Exp $
2              
3 1     1   6 use strict;
  1         1  
  1         39  
4              
5             package Code::Perl::Expr::String;
6              
7 1     1   5 use base 'Code::Perl::Expr::Constant';
  1         2  
  1         1514  
8              
9             # inherits eval
10              
11             sub perl
12             {
13 15     15 0 82 my $self = shift;
14              
15 15         57 return $self->getQuotedValue;
16             }
17              
18             1;