File Coverage

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

Criterion	Covered	Total	%
statement	32	33	96.9
branch	9	10	90.0
condition	2	3	66.6
subroutine	10	10	100.0
pod	1	3	33.3
total	54	59	91.5

package Statistics::R::REXP::Symbol;
# ABSTRACT: an R symbol
$Statistics::R::REXP::Symbol::VERSION = '1.0';
use 5.010;

use Scalar::Util qw(blessed);

use Class::Tiny::Antlers qw(-default around);
#use Statistics::R::REXP::Types;
use namespace::clean;

extends 'Statistics::R::REXP';


use constant sexptype => 'SYMSXP';

has name => (
    is => 'ro',
    default => '',
);

use overload
    '""' => sub { 'symbol `'. shift->name .'`' };

sub BUILDARGS {
    my $class = shift;
    my $attributes = {};

    if ( scalar @_ == 1) {
        if ( ref $_[0] eq 'HASH' ) {
            $attributes = $_[0]
        }
        else {
            $attributes->{name} = $_[0]
        }
    }
    elsif ( @_ % 2 ) {
        die "The new() method for $class expects a hash reference or a key/value list."
                . " You passed an odd number of arguments\n";
    }
    else {
        $attributes = { @_ };
    }

    if (blessed($attributes->{name}) &&
        $attributes->{name}->isa('Statistics::R::REXP::Symbol')) {
        $attributes->{name} = $attributes->{name}->name
    }
    $attributes
}

sub BUILD {
    my ($self, $args) = @_;

    die "Attribute 'name' must be a scalar value" unless ref(\$self->name) eq 'SCALAR'
}

around _eq => sub {
    my $orig = shift;
    $orig->(@_) and ($_[0]->name eq $_[1]->name);
};


sub to_pl {
    my $self = shift;
    $self->name
}


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

__END__