File Coverage

blib/lib/Lisp/Vector.pm

Criterion	Covered	Total	%
statement	7	10	70.0
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	3	0.0
total	10	18	55.5

package Lisp::Vector;

use strict;
use vars qw(@EXPORT_OK);

require Exporter;
*import = \&Exporter::import;
@EXPORT_OK = qw(vector vectorp);

sub vector
{
    Lisp::Vector->new(@_);
}

sub vectorp
{
    UNIVERSAL::isa($_[0], "Lisp::Vector");
}

sub new
{
    my $class = shift;
    bless [@_], $class;
}

1;