perl5i

 view release on metacpan or  search on metacpan

lib/perl5i/0.pm  view on Meta::CPAN

    (\&utf8_open)->alias($caller, 'open');

    # fix die so that it always returns 255
    *CORE::GLOBAL::die = sub {
        # Leave a single ref be
        local $! = 255;
        return CORE::die(@_) if @_ == 1 and ref $_[0];

        my $error = join '', @_;
        unless ($error =~ /\n$/) {
            my ($file, $line) = (caller)[1,2];
            $error .= " at $file line $line.\n";
        }

        local $! = 255;
        return CORE::die($error);
    };


    # utf8ify @ARGV
    $_ = Encode::decode('utf8', $_) for @ARGV;

lib/perl5i/0/DEFAULT.pm  view on Meta::CPAN

    @HASH::ISA   = qw(DEFAULT);
    @CODE::ISA   = qw(DEFAULT);
}

sub DEFAULT::alias {
    my $self = shift;

    croak "Not enough arguments given to alias()" unless @_;

    my @name = @_;
    unshift @name, (caller)[0] unless @name > 1 or grep /::/, @name;

    my $name = join "::", @name;

    no strict 'refs';
    *{$name} = $self;
    return 1;
}

sub DEFAULT::is_number   { return }
sub DEFAULT::is_positive { return }

lib/perl5i/1.pm  view on Meta::CPAN

    (\&utf8_open)->alias($caller, 'open');

    # fix die so that it always returns 255
    *CORE::GLOBAL::die = sub {
        # Leave a single ref be
        local $! = 255;
        return CORE::die(@_) if @_ == 1 and ref $_[0];

        my $error = join '', @_;
        unless ($error =~ /\n$/) {
            my ($file, $line) = (caller)[1,2];
            $error .= " at $file line $line.\n";
        }

        local $! = 255;
        return CORE::die($error);
    };


    # utf8ify @ARGV
    $_ = Encode::decode('utf8', $_) for @ARGV;

lib/perl5i/1/UNIVERSAL.pm  view on Meta::CPAN

use warnings;

require Carp;

sub alias {
    my $self = shift;

    Carp::croak("Not enough arguments given to alias()") unless @_;

    my @name = @_;
    unshift @name, (caller)[0] unless @name > 1 or grep /::/, @name;

    my $name = join "::", @name;

    no strict 'refs';
    *{$name} = $self;
    return 1;
}

sub is_number   { return }
sub is_positive { return }

lib/perl5i/2.pm  view on Meta::CPAN

sub unimport { $^H{perl5i} = 0 }

# fix die so that it always returns 255
sub perl5i_die {
    # Leave a single ref be
    local $! = 255;
    return CORE::die(@_) if @_ == 1 and ref $_[0];

    my $error = join '', @_;
    unless ($error =~ /\n$/) {
        my ($file, $line) = (caller)[1,2];
        $error .= " at $file line $line.\n";
    }

    local $! = 255;
    return CORE::die($error);
}


# File::stat does not play nice in list context
sub stat {

lib/perl5i/2/UNIVERSAL.pm  view on Meta::CPAN

use warnings;

require Carp::Fix::1_25;

sub alias {
    my $self = shift;

    Carp::Fix::1_25::croak('Not enough arguments given to alias()') unless @_;

    my @name = @_;
    unshift @name, (caller)[0] unless @name > 1 or grep /::/, @name;

    my $name = join '::', @name;

    # If this redefines something, assume the user wanted to
    no warnings 'redefine';
    no strict 'refs';
    *{$name} = $self;
    return 1;
}