File Coverage

blib/lib/Data/Random/String.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	6	0.0
condition	0	13	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	54	31.4

package Data::Random::String;

use strict;
use warnings;
use Exporter;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

@ISA         = qw(Exporter);
@EXPORT      = ();
@EXPORT_OK   = qw(&create_random_string);
%EXPORT_TAGS = ( DEFAULT => [qw(&create_random_string)]);

$VERSION = '0.03';


sub create_random_string
{
  	my $self = shift;

	my %args = (@_);
	my $length = $args{length} || '32';
	my $contains = $args{contains} || 'alphanumeric';

	my $rstring  ="";

	for(my $i=0 ; $i< $length ;)
	{
		my $j = chr(int(rand(127)));

		if(($j =~ /[0-9]/) and (lc($contains) eq 'numeric'))
		{
			$rstring .=$j;
			$i++;
		}

		if(($j =~ /[a-zA-Z]/) and (lc($contains) eq 'alpha'))
		{
			$rstring .=$j;
			$i++;
		}

		if(($j =~ /[a-zA-Z0-9]/) and (lc($contains) eq 'alphanumeric'))
		{
			$rstring .=$j;
			$i++;
		}
	}
	return $rstring;
}

1;


__END__