view release on metacpan or  search on metacpan

lib/JBD/Core/stern.pm  view on Meta::CPAN

sub barf { puke @_; exit }

sub import {
    shift if (ref $_[0] || $_[0] || '') eq __PACKAGE__;

    no strict 'refs';
    my $depth = shift || 0;
    *{(caller($depth))[0] ."::$_"} = *$_ for qw(puke barf);

    warnings->import;
    strict->import;
}

1;

__END__

=pod

=encoding UTF-8