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   58336 use strict;
  3         8  
  3         74  
15 3     3   14 use warnings;
  3         5  
  3         59  
16 3     3   13 use WebDAO;
  3         6  
  3         189  
17 3     3   995 use WebDAO::Session;
  3         9  
  3         80  
18 3     3   21 use Data::Dumper;
  3         6  
  3         141  
19 3     3   15 use base qw( WebDAO::Session );
  3         6  
  3         512  
20              
21             #Need to be forever called from over classes;
22             sub _init {
23 3     3   8 my $self = shift;
24 3         10 my %args = @_;
25 3         22 $self->SUPER::_init(@_);
26 3         8 delete $args{cv};
27 3         143 $self->U_id( rand(100) );
28             #setup default method
29 3   50     39 $ENV{REQUEST_METHOD} ||="GET";
30 3         19 Params $self ( $self->_get_params() );
31             }
32              
33             sub print_header() {
34 0     0 0   return ''
35             }
36              
37             1;
38             __DATA__
39              
40             =head1 SEE ALSO
41              
42             http://webdao.sourceforge.net
43              
44             =head1 AUTHOR
45              
46             Zahatski Aliaksandr, E<lt>zag@cpan.orgE<gt>
47              
48             =head1 COPYRIGHT AND LICENSE
49              
50             Copyright 2002-2015 by Zahatski Aliaksandr
51              
52             This library is free software; you can redistribute it and/or modify
53             it under the same terms as Perl itself.
54              
55             =cut
56