my @table_header = ("Package", "Coverage", "Line", "Method", "Branch");
my @data_table;
foreach my $package (sort(keys(%{$result}))) {
    my $instruction_package_missed  = $result->{$package}{$HEADER_INSTRUCTION_MISSED};
    my $instruction_package_covered = $result->{$package}{$HEADER_INSTRUCTION_COVERED};
    my $branch_package_missed       = $result->{$package}{$HEADER_BRANCH_MISSED};
    my $branch_package_covered      = $result->{$package}{$HEADER_BRANCH_COVERED};
    my $line_package_missed         = $result->{$package}{$HEADER_LINE_MISSED};
    my $line_package_covered        = $result->{$package}{$HEADER_LINE_COVERED};
    my $method_package_missed       = $result->{$package}{$HEADER_METHOD_MISSED};
    my $method_package_covered      = $result->{$package}{$HEADER_METHOD_COVERED};

    my $instructions_package_total = $instruction_package_missed + $instruction_package_covered;
    my $branchs_package_total      = $branch_package_missed + $branch_package_covered;
    my $lines_package_total        = $line_package_missed + $line_package_covered;
    my $methods_package_total      = $method_package_missed + $method_package_covered;

    my $instruction_package_percentage = calculate_percentage($instruction_package_covered,$instructions_package_total);
    my $branch_package_percentage      = calculate_percentage($branch_package_covered,$branchs_package_total);
    my $line_package_percentage        = calculate_percentage($line_package_covered,$lines_package_total);
    my $method_package_percentage      = calculate_percentage($method_package_covered,$methods_package_total);

    my $instruction_package_summary = "$instruction_package_percentage\%";
    my $branch_package_summary      = "$branch_package_percentage\% ($branch_package_covered/$branchs_package_total)";
    my $line_package_summary        = "$line_package_percentage\% ($line_package_covered/$lines_package_total)";
    my $method_package_summary      = "$method_package_percentage\% ($method_package_covered/$methods_package_total)";

    my @coverage_line = ($package, $instruction_package_summary, $line_package_summary, $method_package_summary, $branch_package_summary);
    push(@data_table,\@coverage_line);
}
my $table = Data::Table->new(\@data_table, \@table_header, 0);
print $table->tsv."\n";