File Coverage

blib/lib/CGI/Cookie/XS.pm
Criterion Covered Total %
statement 12 15 80.0
branch 0 2 0.0
condition 0 3 0.0
subroutine 5 6 83.3
pod 2 2 100.0
total 19 28 67.8


line stmt bran cond sub pod time code
1             package CGI::Cookie::XS;
2              
3 3     3   1413 use strict;
  3         8  
  3         105  
4 3     3   52 use warnings;
  3         5  
  3         118  
5              
6             our $VERSION;
7              
8 3     3   15 use XSLoader;
  3         3  
  3         126  
9             BEGIN {
10 3     3   6 $VERSION = '0.18';
11 3         2084 XSLoader::load(__PACKAGE__, $VERSION);
12             }
13              
14             sub fetch {
15 0     0 1 0 my $class = shift;
16 0 0 0     0 my $raw_cookie = $ENV{HTTP_COOKIE} || $ENV{COOKIE} or return;
17 0         0 $class->parse($raw_cookie);
18             }
19              
20             sub parse {
21 20     20 1 553 _parse_cookie($_[1]);
22             }
23              
24             1;
25             __END__