File Coverage

blib/lib/Data/Session/SHA.pm

Criterion	Covered	Total	%
statement	20	23	86.9
branch			n/a
condition	0	2	0.0
subroutine	7	8	87.5
pod	0	2	0.0
total	27	35	77.1

package Data::Session::SHA;

use parent 'Data::Session::Base';
no autovivification;
use strict;
use warnings;

use Digest::SHA;

use Hash::FieldHash ':all';

our $errstr  = '';
our $VERSION = '1.17';

# -----------------------------------------------

sub generate
{
	my($self, $bits) = @_;

	return Digest::SHA -> new($bits) -> add($$, time, rand(time) ) -> hexdigest;

} # End of generate.

# -----------------------------------------------

sub new
{
	my($class, %arg) = @_;
	$arg{verbose}    ||= 0;

	return from_hash(bless({}, $class), \%arg);

} # End of new.

# -----------------------------------------------

1;

=pod

=head1 NAME

L - A persistent session manager

=head1 Synopsis

See L for details.

=head1 Description

L is the parent of all L modules.

=head1 Case-sensitive Options

See L for important information.

=head1 Support

Log a bug on RT: L.

=head1 Author

L was written by Ron Savage [e-mail]> in 2010.

Home page: L.

=head1 Copyright

Australian copyright (c) 2010, Ron Savage.

	All Programs of mine are 'OSI Certified Open Source Software';
	you can redistribute them and/or modify them under the terms of
	The Artistic License, a copy of which is available at:
	http://www.opensource.org/licenses/index.html

=cut