sub process_do
{
    my $self = shift;

    my %errors = (
        1 => 0,
        2 => 0,
        3 => 0,
    );
    
    while (<FILE_IN>) {
        my ($errortype) =~ /\s+(\d+)\s+">/;

        next unless $errortype;

        $errors{$errortype}++;
    }

    $self->{data}{errors} = \%errors;
}