Yet Another CPAN Grep

String-Gsub ( H/HI/HIO/String-Gsub-0.04.tar.gz, HIO, 2006; MetaCPAN )

String-Gsub/t/gsub.t ( view source; MetaCPAN )

y $s = gstr("abcabc");
	my $r = $s->gsub(qr/(b)/, sub{uc $1});
	is($r, "aBcaBc", 'gsub result');
	isnt($r, $s, 'gsub returns new object');
	isa_ok($r, 'String::Gsub', 'gsub returns a object which isa

	my $s = gstr("abcabc");
	my $r = $s->sub(qr/(b)/, sub{uc $1});
	is($r, "aBcabc", 'sub result');
	isnt($r, $s, 'sub returns new object');
	isa_ok($r, 'String::Gsub', 'sub returns a object which isa St

String-Gsub ( H/HI/HIO/String-Gsub-0.04.tar.gz, HIO, 2006; MetaCPAN )

String-Gsub/t/gsub-functions.t ( view source; MetaCPAN )

b
{
	my $s = "abcabc";
	my $r = gsub($s, qr/(b)/, sub{uc $1});
	is($r, "aBcaBc", 'gsub result');
	isnt($r, $s, 'gsub returns new object');
	is($s, "abcabc", 'gsub doesnt change original');
}

sub test

bs
{
	my $s = "abcabc";
	my $r = subs($s, qr/(b)/, sub{uc $1});
	is($r, "aBcabc", 'sub result');
	isnt($r, $s, 'sub returns new object');
	is($s, "abcabc", 'sub doesnt change original');
}

sub test_s

String-Gsub ( H/HI/HIO/String-Gsub-0.04.tar.gz, HIO, 2006; MetaCPAN )

String-Gsub/t/string-pattern.t ( view source; MetaCPAN )

y $s = gstr("abcabc");
	my $r = $s->gsub(qr/(b)/, '(\1)');
	is($r, "a(b)ca(b)c", 'gsub result');
	isnt($r, $s, 'gsub returns new object');
	is($s, "abcabc", 'gsub doesnt change original');
}

sub test

{
	my $s = gstr("abcabc");
	my $r = $s->sub(qr/(b)/, '(\1)');
	is($r, "a(b)cabc", 'sub result');
	isnt($r, $s, 'sub returns new object');
	is($s, "abcabc", 'sub doesnt change original');
}

sub test_s