view release on metacpan or  search on metacpan

lib/String/Interpolate/Delayed.pm  view on Meta::CPAN

		{ -emulate => 'q', -with => $code },
		scalar caller,
	);
}

sub new
{
	my $class = shift;
	my ($text) = @_;
	
	bless \$text => $class;
}

sub uninterpolated
{
	my $self = shift;
	
	return $$self;
}

sub _clean