view release on metacpan or  search on metacpan

lib/Driver/Compiler/Check.pm  view on Meta::CPAN

		# Yes, a special case.
		if ($self->value(0) == 0) {	# A valid nil
			unless ($newtype->equals(T_INTEGER)) {
				my $nil = new Anarres::Mud::Driver::Compiler::Node::Nil;
				$nil->check;
				return $nil;
			}
		}

		return $self->SUPER::promote($newtype, @rest);
	}
}

{
	package Anarres::Mud::Driver::Compiler::Node::Array;
	sub check {
		my ($self, $program, @rest) = @_;

		$self->tc_start;