use Carp;

sub my_eval {
  my ($pkg, $file, $line) = caller();
  my $eval_str = qq(\n# line 1 "eval for file '$file' line $line"\n)
    . shift;

  if (wantarray()) {
    my @res = eval($eval_str);
    return $@ ? confess($@) : @res;
  }
  else {
    my $res = eval($eval_str);
    return $@ ? confess($@) : $res;
  }
}