Help for this page
my @table_header = ("Package", "Coverage", "Line", "Method", "Branch") +; my @data_table; ... } my $table = Data::Table->new(\@data_table, \@table_header, 0); print $table->tsv."\n";
Package Coverage Line Method Branch com.gandu.base.alltests 90% 91% (20/22) 50% (1/2) 0 +% (0/0) ... com.gandu.base.testmanager.housekeeping 72% 69% (1044/1513) 6 +8% (116/171) 50% (130/260) com.gandu.base.util 10% 11% (48/450) 13% (11/82) 12% (13/1 +07) com.gandu.base.util.test 81% 80% (4/5) 50% (1/2) 0 +% (0/0)