File Coverage

blib/lib/Petal/CodePerl/Expr/PerlSprintf.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	32	34	94.1

use strict;
use warnings;

package Petal::CodePerl::Expr::PerlSprintf;

use base qw( Code::Perl::Expr::Base );

use Class::MethodMaker (
	get_set => [qw( -java Perl Params )]
);

sub eval
{
	my $self = shift;

	my @params = @{$self->getParams};

	my $perl_f = $self->getPerl;
	my $perl = sprintf($perl_f, map {$_->perl} @params);

	return eval $perl;
}

sub perl
{
	my $self = shift;

	my @params = @{$self->getParams};

	my $perl_f = $self->getPerl;

	my $perl = sprintf($perl_f, map {"(".$_->perl.")"} @params);

	return $perl;
}

1;