File Coverage

blib/lib/Plack/Middleware/ExtractUriLanguage/Type.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1             #
2             # This file is part of Plack-Middleware-ExtractUriLanguage
3             #
4             # This software is Copyright (c) 2013 by BURNERSK.
5             #
6             # This is free software, licensed under:
7             #
8             # The Artistic License 2.0 (GPL Compatible)
9             #
10             package Plack::Middleware::ExtractUriLanguage::Type;
11 4     4   23 use strict;
  4         8  
  4         157  
12 4     4   22 use warnings FATAL => 'all';
  4         9  
  4         144  
13 4     4   23 use utf8;
  4         7  
  4         39  
14              
15 4     4   110 use base 'Exporter';
  4         56  
  4         869  
16              
17             BEGIN {
18 4     4   14 our @EXPORT_OK = qw(
19             $PATH_INFO_FIELD
20             $DEFAULT_PATH_INFO_ORIG_FIELD
21             $DEFAULT_LANGUAGE_TAG_FIELD
22             );
23 4         123 our %EXPORT_TAGS = (
24             all => \@EXPORT_OK,
25             );
26             }
27              
28 4     4   3937 use Const::Fast 'const';
  4         13015  
  4         28  
29              
30             ############################################################################
31              
32             const our $PATH_INFO_FIELD => 'PATH_INFO';
33             const our $DEFAULT_PATH_INFO_ORIG_FIELD => 'extracturilanguage.path_info';
34             const our $DEFAULT_LANGUAGE_TAG_FIELD => 'extracturilanguage.language';
35              
36             ############################################################################
37             1;