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

use strict;
use warnings;

sub process {
    my $self = shift;
    my $data = shift;
    my $iodef = shift;
    
    return unless($data->{'hash'});    
    my $hash = ExtensionType->new({
        meaning     => 'hash',
        content     => $data->{'hash'},
        dtype       => ExtensionType::DtypeType::dtype_type_string(),
    });
    
    my $incident = @{$iodef->get_Incident()}[0];
    push(@{$incident->{'AdditionalData'}},$hash);  
}

1;