File Coverage

blib/lib/CGI/Session/ID/static.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package CGI::Session::ID::static;
2 3     3   18 use base 'CGI::Session::ErrorHandler';
  3         5  
  3         412  
3              
4 3     3   16 use strict;
  3         4  
  3         60  
5 3     3   9 use Carp 'croak';
  3         4  
  3         126  
6 3     3   10 use CGI::Session::ErrorHandler;
  3         4  
  3         250  
7              
8             $CGI::Session::ID::static::VERSION = '4.44';
9              
10             sub generate_id {
11 6     6 0 12 my ($self, $args, $claimed_id ) = @_;
12 6 100       8 unless ( defined $claimed_id ) {
13 1         166 croak "'CGI::Session::ID::Static::generate_id()' requires static id";
14             }
15 5         10 return $claimed_id;
16             }
17              
18             1;
19             __END__