File Coverage

blib/lib/GDPR/IAB/TCFv2/Constants/RestrictionType.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package GDPR::IAB::TCFv2::Constants::RestrictionType;
2 1     1   1937 use strict;
  1         2  
  1         29  
3 1     1   3 use warnings;
  1         2  
  1         42  
4              
5             require Exporter;
6 1     1   3 use base qw;
  1         5  
  1         114  
7              
8             use constant {
9 1         67 NotAllowed => 0,
10             RequireConsent => 1,
11             RequireLegitimateInterest => 2,
12 1     1   5 };
  1         1  
13              
14 1         90 use constant RestrictionTypeDescription => {
15             NotAllowed => "Purpose Flatly Not Allowed by Publisher",
16             RequireConsent => "Require Consent",
17             RequireLegitimateInterest => "Require Legitimate Interest",
18 1     1   4 };
  1         1  
19              
20             our @EXPORT_OK = qw<
21             NotAllowed
22             RequireConsent
23             RequireLegitimateInterest
24             RestrictionTypeDescription
25             >;
26              
27             our %EXPORT_TAGS = ( all => \@EXPORT_OK );
28              
29             1;
30              
31             __END__