File Coverage

blib/lib/GDPR/IAB/TCFv2/PublisherRestrictions.pm

Criterion	Covered	Total	%
statement	69	69	100.0
branch	11	18	61.1
condition	4	4	100.0
subroutine	9	9	100.0
pod	3	4	75.0
total	96	104	92.3

package GDPR::IAB::TCFv2::PublisherRestrictions;
use strict;
use warnings;

use Carp qw;

use GDPR::IAB::TCFv2::BitUtils qw<
  get_uint2
  get_uint6
  get_uint12
>;

use constant ASSUMED_MAX_VENDOR_ID => 0x7FFF;    # 32767 or (1 << 15) -1


sub Parse {
    my ( $klass, %args ) = @_;

    croak "missing 'data'"      unless defined $args{data};
    croak "missing 'data_size'" unless defined $args{data_size};

    croak "missing 'options'"      unless defined $args{options};
    croak "missing 'options.json'" unless defined $args{options}->{json};

    my $data      = $args{data};
    my $data_size = $args{data_size};
    my $offset    = 0;
    my $max_id    = ASSUMED_MAX_VENDOR_ID;
    my $options   = $args{options};

    my ( $num_restrictions, $next_offset ) = get_uint12( $data, $offset );

    my %restrictions;

    for ( 1 .. $num_restrictions ) {
        my ( $purpose_id, $restriction_type, $vendor_restrictions );

        ( $purpose_id, $next_offset ) = get_uint6( $data, $next_offset );

        ( $restriction_type, $next_offset ) = get_uint2( $data, $next_offset );

        ( $vendor_restrictions, $next_offset ) =
          GDPR::IAB::TCFv2::RangeSection->Parse(
            data      => $data,
            data_size => $data_size,
            offset    => $next_offset,
            max_id    => ASSUMED_MAX_VENDOR_ID,
            options   => $options,
          );

        $restrictions{$purpose_id} ||= {};

        $restrictions{$purpose_id}->{$restriction_type} = $vendor_restrictions;
    }

    my $self = {
        restrictions => \%restrictions,
    };

    bless $self, $klass;

    return $self;
}

sub restrictions {
    my ( $self, $vendor_id ) = @_;

    my %restrictions;

    foreach my $purpose_id ( keys %{ $self->{restrictions} } ) {
        foreach my $restriction_type (
            keys %{ $self->{restrictions}->{$purpose_id} } )
        {
            if ( $self->{restrictions}->{$purpose_id}->{$restriction_type}
                ->contains($vendor_id) )
            {
                $restrictions{$purpose_id} ||= {};
                $restrictions{$purpose_id}->{$restriction_type} = 1;
            }
        }
    }

    return \%restrictions;
}

sub check_restriction {
    my $self = shift;

    my $nargs = scalar(@_);

    croak "missing arguments: purpose id, restriction type and vendor id"
      if $nargs == 0;
    croak "missing arguments: restriction type and vendor id" if $nargs == 1;
    croak "missing argument: vendor id"                       if $nargs == 2;

    my ( $purpose_id, $restriction_type, $vendor_id ) = @_;

    return 0
      unless exists $self->{restrictions}->{$purpose_id}->{$restriction_type};

    return $self->{restrictions}->{$purpose_id}->{$restriction_type}
      ->contains($vendor_id);
}

sub TO_JSON {
    my $self = shift;

    my %publisher_restrictions;

    foreach my $purpose_id ( keys %{ $self->{restrictions} } ) {
        my $restriction_map = $self->{restrictions}->{$purpose_id};

        my %purpose_restrictions;

        foreach my $restriction_type ( keys %{$restriction_map} ) {
            my $vendors = $restriction_map->{$restriction_type}->all;

            foreach my $vendor ( @{$vendors} ) {
                $purpose_restrictions{$vendor} = int($restriction_type);
            }
        }

        $publisher_restrictions{$purpose_id} = \%purpose_restrictions;
    }

    return \%publisher_restrictions;
}

1;
__END__