File Coverage

blib/lib/CGI/Lazy/ID.pm

Criterion	Covered	Total	%
statement	12	27	44.4
branch			n/a
condition	0	2	0.0
subroutine	4	8	50.0
pod	4	4	100.0
total	20	41	48.7

package CGI::Lazy::ID;

use strict;

use Digest::MD5;
use Time::HiRes qw(gettimeofday);
use CGI::Lazy::Globals;

#---------------------------------------------------------------------------------------
sub generate {
	my $self = shift;

	my($s,$us)=gettimeofday();
  	my($v)=sprintf("%09d%06d%10d%06d%255s",rand(999999999),$us,$s,$$,$self->session->config->configfile);
	my $id = Digest::MD5::md5_base64($v);
	$id =~ tr{+/}{_-};
	return $id;
}

#---------------------------------------------------------------------------------------
sub new	{
	my $class = shift;
	my $session = shift;

	srand;

	bless {_session => $session}, $class;
}

#---------------------------------------------------------------------------------------
sub session {
	my $self = shift;
	return $self->{_session};
}

#---------------------------------------------------------------------------------------
sub valid {
	my $self = shift;
	my $sessionID = shift || '';

	return $sessionID =~ m/^[\w\d-]{22}$/;
}

1

__END__