File Coverage

blib/lib/String/Mask.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	8	8	100.0
condition	4	4	100.0
subroutine	6	6	100.0
pod	1	1	100.0
total	48	48	100.0

package String::Mask;
use 5.006; use strict; use warnings;
use base 'Import::Export';

our $VERSION = '1.03';
our %EX = (
	mask => [qw/all/]
);

sub mask {
	my ($string, $pos, $length, $mask_char) = @_;
	$pos ||= 'start';
	$length = int(length($string) / 2) unless $length;
	if ($pos eq 'end') {
		$string =~ s/(.*)(.{$length})$/_mask($1, $mask_char).$2/es;
	} elsif ($pos eq 'middle') {
		my $half = int((length($string) - $length) / 2);
		$string =~ s/(.{$half})(.{$length})(.*)/_mask($1, $mask_char).$2._mask($3, $mask_char)/e;
	} elsif ($pos eq 'email') {
		$string =~ s/(.*)(.{$length}\@.*)$/$1._mask($2, $mask_char)/e;
	} else {
		$string =~ s/(\w{$length})(.*)/$1._mask($2, $mask_char)/e;
	}
	return $string;
}

sub _mask {
	my ($string, $char) = @_;
	$char ||= '*';
	$string =~ s/[^.@]/$char/g;
	return $string;
}

1;

__END__