File Coverage

blib/lib/immutable/0.pm

Criterion	Covered	Total	%
statement	20	27	74.0
branch	3	4	75.0
condition			n/a
subroutine	7	13	53.8
pod	0	8	0.0
total	30	52	57.6

use strict; use warnings;
package immutable::0;

use immutable();

our $VERSION = $immutable::VERSION;

use Exporter 'import';

our @EXPORT_OK = qw(
    iobj
    imap
    iseq
    iset
    ilist
    istr
    inum
    ibool
);

our %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );

sub _todo {
    die "${\ (caller(1))[3]} not yet implemented";
}

sub iobj {
    my $type = ref($_[0]);
    return
        $type eq 'HASH' ? imap(%{$_[0]}) :
        $type eq 'ARRAY' ? iseq(@{$_[0]}) :
        die "Invalid arguments for iobj";
}

sub imap {
    require immutable::map;
    return immutable::map->new(@_);
}

sub iseq {
    require immutable::seq;
    return immutable::seq->new(@_);
}

sub iset { _todo }
sub ilist { _todo }
sub istr { _todo }
sub inum { _todo }
sub ibool { _todo }

1;