view release on metacpan or  search on metacpan

Bio/Prospect/CBT/debug.pm  view on Meta::CPAN

#my $p = new Getopt::Long::Parser;
#$p->configure( qw(gnu_getopt pass_through) );
#$p->getoptions( @options );
#use Data::Dumper;
#print Dumper(\%options), "\n";

use Carp;

sub identify_file
  {
  my ($p,$f,$l) = caller();
  my $v = eval "return \$${p}::VERSION" || 'N/A';
  print(STDERR "# use $p (f:$f, v:$v)\n");
  }

sub advise
  {
  my $level = shift;
  my $pkg = (caller())[0];
  carp( "$pkg ($level):", @_ ) if eval { $pkg::DEBUG >= $level }
  }

sub RCSVersion
  {
  my $rcsstring = shift;
  return $1 if $rcsstring =~ m/\$\bRevision: (\d.+)\$/;
  return $1 if $rcsstring =~ m/\$\bId: .+,v (\d.+)\$/;
  return $1 if $rcsstring =~ m/^[\d.]+$/;
  return undef;