The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Iodef::Pb::Simple::Plugin::Restriction;
use base 'Iodef::Pb::Simple::Plugin';

use strict;
use warnings;

sub process {
    my $self = shift;
    my $data = shift;
    my $iodef = shift;
    
    my $restriction = $data->{'restriction'} || 'private';
    
    unless(ref($restriction) eq 'RestrictionType'){
        $restriction = $self->restriction_normalize($restriction);
    }
    my $incident = @{$iodef->get_Incident()}[0];  
    $incident->set_restriction($restriction);
}

1;