File Coverage

blib/lib/WebDAO/SessionSH.pm
Criterion Covered Total %
statement 25 26 96.1
branch n/a
condition 1 2 50.0
subroutine 7 8 87.5
pod 0 1 0.0
total 33 37 89.1


line stmt bran cond sub pod time code
1             package WebDAO::SessionSH;
2              
3             =head1 NAME
4              
5             WebDAO::SessionSH - Session class used from shell
6              
7             =head1 DESCRIPTION
8              
9             WebDAO::SessionSH - Session class used from shell
10              
11             =cut
12              
13             our $VERSION = '0.01';
14 3     3   23266 use strict;
  3         7  
  3         72  
15 3     3   506 use warnings;
  3         6  
  3         79  
16 3     3   13 use WebDAO;
  3         4  
  3         224  
17 3     3   1428 use WebDAO::Session;
  3         9  
  3         90  
18 3     3   18 use Data::Dumper;
  3         7  
  3         152  
19 3     3   15 use base qw( WebDAO::Session );
  3         6  
  3         517  
20              
21             #Need to be forever called from over classes;
22             sub _init {
23 3     3   7 my $self = shift;
24 3         10 my %args = @_;
25 3         27 $self->SUPER::_init(@_);
26 3         8 delete $args{cv};
27 3         183 $self->U_id( rand(100) );
28             #setup default method
29 3   50     51 $ENV{REQUEST_METHOD} ||="GET";
30 3         14 Params $self ( $self->_get_params() );
31             }
32              
33             sub print_header() {
34 0     0 0   return ''
35             }
36              
37             1;
38             __DATA__