File Coverage

blib/lib/OpenFrame/Cookie.pm
Criterion Covered Total %
statement 12 18 66.6
branch 0 4 0.0
condition 0 6 0.0
subroutine 4 5 80.0
pod 1 1 100.0
total 17 34 50.0


line stmt bran cond sub pod time code
1             package OpenFrame::Cookie;
2              
3 2     2   13 use strict;
  2         5  
  2         72  
4 2     2   10 use warnings::register;
  2         4  
  2         219  
5              
6 2     2   1904 use CGI::Cookie;
  2         20994  
  2         73  
7 2     2   20 use base qw ( CGI::Cookie );
  2         6  
  2         427  
8              
9             our $VERSION=3.05;
10              
11             sub value {
12 0     0 1   my $self = shift;
13 0           my $val = shift;
14              
15 0 0 0       if (defined($val) && !ref($val)) {
    0 0        
16 0           return $self->SUPER::value( [ $val ] );
17             } elsif(defined($val) && ref($val)) {
18 0           return $self->SUPER::value( $val, @_ );
19             } else {
20 0           return $self->SUPER::value( $val, @_ );
21             }
22             }
23              
24             1;
25              
26             __END__