view release on metacpan or  search on metacpan

lib/App/FQStat/Debug.pm  view on Meta::CPAN

   warnenter
  )],
);
our @EXPORT_OK = @{$EXPORT_TAGS{'all'}};
our @EXPORT = @{$EXPORT_TAGS{'all'}};

sub warnline ($) {
  my $msg = shift;
  chomp($msg);
  my $time = time();
  my ($pkg, $file, $line) = caller();
  ::debug( sprintf("[% 6.2f]", $time - &::STARTTIME()) . " $msg at $file line $line\n" );
}

sub warnenter () {
  my $time = time();
  my ($fpkg, $ffile, $fline, $sub) = caller(1);
  ::debug( sprintf("[% 6.2f]", $time - &::STARTTIME()) . " Entering $sub from $ffile line $fline\n" );
}

1;