File Coverage

blib/lib/perl5i/0/DEFAULT.pm

Criterion	Covered	Total	%
statement	24	30	80.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	12	50.0
pod			n/a
total	33	49	67.3

package perl5i::0::DEFAULT;

# Methods which apply to all autoboxed objects

use strict;
use warnings;

use Carp;

BEGIN {
    @SCALAR::ISA = qw(DEFAULT);
    @ARRAY::ISA  = qw(DEFAULT);
    @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 }
sub DEFAULT::is_negative { return }
sub DEFAULT::is_int      { return }
sub DEFAULT::is_integer  { return }
sub DEFAULT::is_decimal  { return }

1;