File Coverage

blib/lib/Code/Perl/Expr/SubName.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	18	20	90.0

# $Header: /home/fergal/my/cvs/Code-Perl/lib/Code/Perl/Expr/SubName.pm,v 1.1 2003/06/17 15:11:11 fergal Exp $

use strict;

package Code::Perl::Expr::SubName;

use base 'Code::Perl::Expr::Constant';

use Carp 'confess';

sub eval
{
	my $self = shift;

	return $self->getValue
}

sub perl
{
	my $self = shift;

	return $self->getValue;
}

1;