use Carp;
package Carp;

sub croak   { die  sub_prefix(), shortmess @_ }
sub confess { die  sub_prefix(), longmess  @_ }
sub carp    { warn sub_prefix(), shortmess @_ }
sub cluck   { warn sub_prefix(), longmess  @_ }

sub sub_prefix
{
   my @c = caller(2);
   return $c[3] ? $c[3] . ": " : '';
}



1;
