$#{ $self->{ op_stack } }

##</code><code>##

package Foo;
use strict;

sub new
{
	my $class = shift;
	my $stuff =
	{
		a => [ qw/ Ovid is a schmuck / ]
	};
	bless $stuff, $class;
	return $stuff;
}

package main;
use base "Foo";

my $test = Foo->new;
use Data::Dumper;
print Dumper $test;
print $#{$test->{a}};