view release on metacpan or  search on metacpan

lib/Statistics/RserveClient/REXP/List.pm  view on Meta::CPAN

# * return TRUE if the list is named

sub isNamed() {
    my $self = shift;
    return $self->is_named;
}

# * Get the value for a given name entry, if list is not named, get the indexed element
# * @param string $name

sub at($) {
    my $self = shift;
    my $name = shift;

    if ( $self->is_named ) {
        my $i = array_search( $name, $self->names );
        if ( $i < 0 ) {
            return undef;
        }
        return $self::values[$i];
    }

lib/Statistics/RserveClient/REXP/Vector.pm  view on Meta::CPAN

}

# Gets the value of the instance vector
sub getValues($) {
    my $self = shift;
    return defined( $self->{_values} ) ? @{ $self->{_values} } : ();
}

# * Get value
# * @param unknown_type $index
sub at($) {
    my $self  = shift;
    my $index = shift;
    return @{ $self->{_values} }[$index];
}

# * Gets the type of this object
sub getType() {
    return Statistics::RserveClient::XT_VECTOR;
}