File Coverage

blib/lib/Perl6/Builtins.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	5	6	83.3
condition	4	6	66.6
subroutine	13	13	100.0
pod			n/a
total	58	61	95.0

package Perl6::Builtins;

use version; $VERSION = qv('0.0.3');

use warnings;
use strict;
use Carp;

sub import {
    use Contextual::Return;
    my $package = shift;

    # system...
    if (!@_ || grep m/\A system \z/xms, @_) {
        *CORE::GLOBAL::system = \&_p6_system;
    }

    # caller...
    if (!@_ || grep m/\A caller \z/xms, @_) {
        *CORE::GLOBAL::caller = \&_p6_caller;
    }
}

sub _p6_system {
    undef $!;
    my $status = CORE::system @_;
    my $error = $!;
    return
        BOOL  { !$status }
        VALUE { $error   };
}

my @CALLER_FIELDS = qw(
    package
    file
    line
    sub
    args
    want
    eval
    require
    hints
    bitmask
);

sub _p6_caller {
    my @caller;
    if (@_) {
        @caller = CORE::caller($_[0]+1);
    }
    else {
        @caller = (CORE::caller(1))[0..2];
    }
    return (
        HASHREF { my %hash;
                  @hash{@CALLER_FIELDS} = @caller;
                  \%hash;
                }
        SCALAR  { $caller[0]; }
        LIST    { @caller; }
    );
}

1; # Magic true value required at end of module
__END__