File Coverage

blib/lib/immutable/base.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	30	32	93.7

use strict; use warnings;
package immutable::base;
use Scalar::Util 'refaddr';

use overload
    q{""} => sub {
        my ($self) = @_;
        "<${\ ref($self)} ${\ $self->size} ${\ refaddr $self}>";
    },
    q{0+} => sub {
        $_[0]->size;
    },
    q{bool} => sub {
        !! $_[0]->size;
    },
    fallback => 1;

sub id {
    refaddr($_[0]);
}

sub is_empty {
    $_[0]->size == 0;
}

1;