File Coverage

blib/lib/Bio/GMOD/Util/Status.pm

Criterion	Covered	Total	%
statement	16	26	61.5
branch	2	8	25.0
condition			n/a
subroutine	4	7	57.1
pod	4	5	80.0
total	26	46	56.5

package Bio::GMOD::Util::Status;

# This simple module doesn't do much of interest
# It provides several some methods for generating
# warnings and handling errors

use strict;
use Bio::GMOD::Util::Rearrange;

#########################################################
# Utilities
#########################################################
# This is appended to the messages log to signify to the application
# that the update process has ended
#sub end {
#  my $msg = shift;
#  print MESSAGES "__UPDATE_$msg" . "__\n";
#  logit('===========================================================',1);
#  logit("Updating complete: $msg");
#  logit('===========================================================',1);
#  close MESSAGES;
#}


sub logit {
  my ($self,@p) = @_;
  my ($msg,$die,$emphasis) = rearrange([qw/MSG DIE EMPHASIS/],@p);
  my $date = $self->fetch_date;
  $msg =~ s/\n$//;
  if ($emphasis) {
    print STDERR "$msg...\n";
    print STDERR '=' x (length "$msg...") . "\n" if $emphasis;
  } else {
    print STDERR "[$date] $msg...\n";
  }
  die if $die;
  # my $adaptor = $self->adaptor;
  # $self->gui_messages($msg) if $adaptor->gui_messages;
}


# For recording non-fatal errors
sub warning {
  my ($self,@p) = @_;
  my ($msg) = rearrange([qw/MSG/],@p);
  print STDERR "----> $msg\n";
}

sub test_for_error {
  my ($self,$result,$msg) = @_;
  if ($result != 0) {
    $self->logit(-msg => "----> $msg: failed, $!\n",
		 -die => 1,);
  } else {
    $self->logit(-msg => "$msg: succeeded");
  }
}

sub fetch_date {
  #  my $date = `date '+%Y %h %d (%a) at %H:%M'`;
  my $date = `date '+%Y %h %d %H:%M'`;
  chomp $date;
  return $date;
}


# DEPRECATED?
# The messages log is used to display brief messages
# above the progress meter of the application
sub gui_messages {
  my ($self,$msg) = @_;
  #  print MESSAGES "$msg...\n";
}



1;


__END__