# * Rserve client for Perl
# * @author Djun Kim
# * Based on Clément Turbelin's PHP client
# * Licensed under GPL v2 or at your option v3

# * Supports Rserve protocol 0103 only (used by Rserve 0.5 and higher)
# *
# * Developed using code from Simple Rserve client for PHP by Simon
# * Urbanek Licensed under GPL v2 or at your option v3

# * This code is inspired from Java client for Rserve (Rserve package
# * v0.6.2) developed by Simon Urbanek(c)

#use warnings;
#use autodie;

# R Double vector

# class Rserve_REXP_Logical extends Rserve_REXP_Vector {

use Statistics::RserveClient;
use Statistics::RserveClient qw (:xt_types );

use Statistics::RserveClient::REXP::Vector;

package Statistics::RserveClient::REXP::Logical;

our $VERSION = 'CPAN-0.08'; #VERSION

our @ISA = qw(Statistics::RserveClient::REXP::Vector);

sub isInteger() { return TRUE; }
sub isNumeric() { return TRUE; }
sub isLogical() { return TRUE; }

sub getType() {
    return Statistics::RserveClient::XT_ARRAY_BOOL;
}

1;