File Coverage

blib/lib/Code/Perl/Expr/Number.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/Number.pm,v 1.1 2003/06/17 14:14:21 fergal Exp $
2              
3 1     1   5 use strict;
  1         2  
  1         43  
4              
5             package Code::Perl::Expr::Number;
6              
7 1     1   5 use base 'Code::Perl::Expr::Constant';
  1         2  
  1         546  
8              
9             # inherits eval
10              
11             sub perl
12             {
13 7     7 0 82 my $self = shift;
14              
15 7         292 return $self->getValue
16             }
17              
18             1;