package PError;

use strict;
use warnings;

our ($VERSION) = q $Revision: 1.1 $ =~ /([\d.]+)/g;

sub perror {warn @_ ? "@_: $!\n" : "$!\n"}  
sub pdie   {die  @_ ? "@_: $!\n" : "$!\n"}

my %symbols = map {$_ => 1} qw /perror pdie/;
 
sub import {
    my $class  = shift;
    my $caller = caller;
 
    foreach my $name (@_ ? @_ : keys %symbols) {
        die "'$name' is not exported.\n" unless $symbols {$name};
        my $func = $name eq "pwarn" ? "perror" : $name;
        no strict 'refs';
        *{$caller . "::$name"} = \&{$class . "::$func"}
    }
}
 
 
1;
 
__END__