File Coverage

blib/lib/Statistics/R/REXP/List.pm

Criterion	Covered	Total	%
statement	38	39	97.4
branch	9	10	90.0
condition	4	6	66.6
subroutine	10	10	100.0
pod	1	1	100.0
total	62	66	93.9

package Statistics::R::REXP::List;
# ABSTRACT: an R generic vector (list)
$Statistics::R::REXP::List::VERSION = '1.0001';
use 5.010;

use Scalar::Util qw(blessed weaken);

use Class::Tiny::Antlers;
use namespace::clean;

extends 'Statistics::R::REXP::Vector';
use overload;


use constant sexptype => 'VECSXP';

sub _to_s {
    my $self = shift;

    my ($u, $unfold);
    $u = $unfold = sub {
        join(', ', map { ref $_ eq ref [] ?
                             '[' . &$unfold(@{$_}) . ']' :
                             (defined $_? $_ : 'undef') } @_);
    };
    weaken $unfold;
    $self->_type . '(' . &$unfold(@{$self->elements}) . ')';
}


sub to_pl {
    my $self = shift;
    [ map {
        if (blessed $_ && $_->can('to_pl')) {
            my $x = $_->to_pl;
            if (ref $x eq ref []) {
                unless (scalar @{$x} > 1 ||
                        $_->isa('Statistics::R::REXP::List')) {
                    @{$x}
                } else {
                    $x
                }
            } else {
                $x
            }
        } else {
            $_
        }
      } @{$self->elements} ]
}


sub _type { 'list'; }


1; # End of Statistics::R::REXP::List

__END__