File Coverage

JavaArray.pm

Criterion	Covered	Total	%
statement	0	15	0.0
branch			n/a
condition			n/a
subroutine	0	7	0.0
pod	0	1	0.0
total	0	23	0.0

#
# $Id: JavaArray.pm,v 1.1.1.1 2003/11/17 22:08:07 zzo Exp $
#

package JavaArray;

# Just keep track of java object
# A VERY (ridiculously so perhaps!) thin veneer over the stuff in Java.pm...
sub TIEARRAY
{
        my $class = shift;
        my $java_object = shift;

        return bless {
                java_object => $java_object,
        }, $class;
}

sub FETCH
{
        my($self,$index) = @_;
        $self->get_object->get_field($index);
}

sub STORE
{
        my($self,$index,$value) = @_;
        $self->get_object->set_field($index,$value);
}

sub FETCHSIZE
{
        my($self) = @_;
        $self->get_object->get_length;
}

sub STORESIZE
{
        my($self) = @_;
        $self->FETCHSIZE+1;
}

#sub DESTROY
#{
        #my($self) = @_;
        #$self->get_object->DESTROY;
#}

sub get_object
{
        my($self) = @_;
        $self->{java_object};
}

# Sneaky way to get actual java object outta this thang
#       for function calls & such w/o having to keep around
#       the actual object returned by 'tie'
sub POP
{
        my($self) = @_;
        $self->get_object;
}
1;
__END__