view release on metacpan or  search on metacpan

t/interpolate.t  view on Meta::CPAN

use strict;
use warnings;

use String::Interpolate;

print "1..28\n";

my $testno;

sub t ($) {
    print "not " unless shift;
    print "ok ",++$testno,"\n";
}

my $i = String::Interpolate->new;

'DOL1,DOL2' =~ /(.*),(.*)/;

local $_ = 'US';
local %_ = ( R => '_R' );