diff --git a/.github/workflows/macos.yml b/.github/workflows/macos.yml index d8a1b8e..d7a342a 100644 --- a/.github/workflows/macos.yml +++ b/.github/workflows/macos.yml @@ -1,11 +1,8 @@ name: macos + on: - push: - branches: - - '*' - tags-ignore: - - '*' - pull_request: + - push + jobs: perl: runs-on: macOS-latest diff --git a/.github/workflows/perltidy.yml b/.github/workflows/perltidy.yml index 080f484..fe553f0 100644 --- a/.github/workflows/perltidy.yml +++ b/.github/workflows/perltidy.yml @@ -1,11 +1,8 @@ name: perltidy + on: - push: - branches: - - '*' - tags-ignore: - - '*' - pull_request: + - push + jobs: perltidy: runs-on: ubuntu-latest diff --git a/.github/workflows/windows.yml b/.github/workflows/windows.yml index be2184d..bf32b52 100644 --- a/.github/workflows/windows.yml +++ b/.github/workflows/windows.yml @@ -1,11 +1,8 @@ name: windows + on: - push: - branches: - - '*' - tags-ignore: - - '*' - pull_request: + - push + jobs: perl: runs-on: windows-latest diff --git a/Changes b/Changes index 3ec2066..c72f9ce 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,4 @@ +0.100 - parse publisher tc section if available - add strict mode (disabled by default) to validate the consent string version diff --git a/MANIFEST b/MANIFEST index 71667e2..90466be 100644 --- a/MANIFEST +++ b/MANIFEST @@ -7,7 +7,9 @@ lib/GDPR/IAB/TCFv2/BitUtils.pm lib/GDPR/IAB/TCFv2/Constants/Purpose.pm lib/GDPR/IAB/TCFv2/Constants/RestrictionType.pm lib/GDPR/IAB/TCFv2/Constants/SpecialFeature.pm +lib/GDPR/IAB/TCFv2/Publisher.pm lib/GDPR/IAB/TCFv2/PublisherRestrictions.pm +lib/GDPR/IAB/TCFv2/PublisherTC.pm lib/GDPR/IAB/TCFv2/RangeSection.pm LICENSE Makefile.PL diff --git a/README.pod b/README.pod index 59260d0..2b7df78 100644 --- a/README.pod +++ b/README.pod @@ -26,7 +26,7 @@ GDPR::IAB::TCFv2 - Transparency & Consent String version 2 parser =head1 VERSION -Version 0.084 +Version 0.100 =head1 SYNOPSIS diff --git a/lib/GDPR/IAB/TCFv2.pm b/lib/GDPR/IAB/TCFv2.pm index 4eaa385..e82d769 100644 --- a/lib/GDPR/IAB/TCFv2.pm +++ b/lib/GDPR/IAB/TCFv2.pm @@ -22,7 +22,7 @@ use GDPR::IAB::TCFv2::BitUtils qw { @@ -35,8 +35,8 @@ use constant { MAX_PURPOSE_ID => 24, DATE_FORMAT_ISO_8601 => '%Y-%m-%dT%H:%M:%SZ', SEGMENT_TYPES => { - CORE => 0, - PUBLISHER_TC => 3, + CORE => 0, + PUBLISHER_TC => 3, }, OFFSETS => { SEGMENT_TYPE => 0, @@ -107,10 +107,10 @@ sub Parse { $options{json}->{boolean_values} ||= [ _json_false(), _json_true() ]; my $self = { - core_data => $segments->{core_data}, - publisher_tc_data => $segments->{publisher_tc}, - options => \%options, - tc_string => $tc_string, + core_data => $segments->{core_data}, + publisher_tc_data => $segments->{publisher_tc}, + options => \%options, + tc_string => $tc_string, vendor_consents => undef, vendor_legitimate_interests => undef, @@ -450,11 +450,11 @@ sub _decode_tc_string_segments { $segments{$segment_type} = $decoded; } - my $publisher_tc = $segments{ SEGMENT_TYPES->{PUBLISHER_TC} }; + my $publisher_tc = $segments{ SEGMENT_TYPES->{PUBLISHER_TC} }; return { - core_data => $core_data, - publisher_tc => $publisher_tc, + core_data => $core_data, + publisher_tc => $publisher_tc, }; } @@ -652,7 +652,7 @@ GDPR::IAB::TCFv2 - Transparency & Consent String version 2 parser =head1 VERSION -Version 0.084 +Version 0.100 =head1 SYNOPSIS