File Coverage

blib/lib/Rope/Handles/String.pm

Criterion	Covered	Total	%
statement	37	59	62.7
branch	4	10	40.0
condition	3	6	50.0
subroutine	8	14	57.1
pod	11	12	91.6
total	63	101	62.3

package Rope::Handles::String;

use strict;
use warnings;

sub new {
	my ($class, $str) = @_;
	bless \$str, __PACKAGE__;
}

sub increment {
	my ($self) = @_;
	my $str = ${$self};
	my $num = $str =~ s/(\d+)$// && $1;
	$num++;
	${$self} = $str . $num;
	return ${$self};
}

sub decrement {
	my ($self) = @_;
	my $str = ${$self};
	my $num = $str =~ s/(\d+)$// && $1;
	$num--;
	${$self} = $str . ($num == 0 ? '' : $num);
	return ${$self};
}

sub append { ${$_[0]} = ${$_[0]} . $_[1] }

sub prepend { ${$_[0]} = $_[1] . ${$_[0]} }

sub replace {
	if (ref($_[2]) eq 'CODE') {
		${$_[0]} =~ s/$_[1]/$_[2]->()/e;
	}
	elsif ($_[2]) {
		${$_[0]} =~ s/$_[1]/$_[2]/;
	} else {
		${$_[0]} =~ s/$_[1]/$1/;
	}
	${$_[0]};
}


sub match { ${$_[0]} =~ /$_[1]/; }

sub chop { CORE::chop ${$_[0]} }

sub chomp { CORE::chomp ${$_[0]} }

sub clear { ${$_[0]} = '' }

sub length { CORE::length ${$_[0]} }

sub substr {
	if (@_ >= 4) {
		substr ${$_[0]}, $_[1], $_[2], $_[3];
	}
	elsif (@_ == 3) {
		substr ${$_[0]}, $_[1], $_[2];
	}
	else {
		substr ${$_[0]}, $_[1];
	}
}

1;

__END__