File Coverage

blib/lib/Apache/Session/Generate/UUID.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 24 58.3


line stmt bran cond sub pod time code
1             # $Id: $ $Revision: $ $Source: $ $Date: $
2              
3             package Apache::Session::Generate::UUID;
4              
5 1     1   22350 use strict;
  1         2  
  1         43  
6 1     1   6 use warnings;
  1         2  
  1         31  
7              
8 1     1   814 use Data::UUID;
  1         3472  
  1         441  
9              
10             our $VERSION = '0.2';
11              
12             sub generate {
13 0     0 1   my ($session) = @_;
14 0           return $session->{'data'}->{'_session_id'} = Data::UUID->new->create_str();
15             }
16              
17             sub validate {
18 0     0 1   my ($session) = @_;
19 0 0         if ($session->{'data'}->{'_session_id'} !~ /^[a-fA-F0-9\-]+$/xm) { die; }
  0            
20 0           return 1;
21             }
22              
23             1;
24             __END__