# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+use warnings;
use strict;
+use Term::ANSIColor;
use Maasha::Common;
use Maasha::Biopieces;
foreach $format ( sort keys %found )
{
if ( exists $hash{ $genome }{ $format } ) {
- push @row, "yes";
+ push @row, colored( "yes", "green" );
} else {
- push @row, "no";
+ push @row, colored( "no", "red" );
}
}