DalesDeadBug/theos/bin/lib/Logos/Generator/MobileSubstrate/Class.pm

package Logos::Generator::MobileSubstrate::Class;
use strict;
use parent qw(Logos::Generator::Base::Class);

sub initializers {
	my $self = shift;
	my $class = shift;
	my $return = "";
	if($class->required || $class->overridden || $class->hasinstancehooks || $class->hasmetahooks) {
		$return .= "Class ".$self->variable($class)." = ".$self->_initExpression($class)."; ";
	}
	if($class->hasmetahooks) {
		$return .= "Class ".$self->metaVariable($class)." = ".$self->_metaInitExpression($class)."; ";
	}
	$return .= $self->SUPER::initializers($class);
	return $return;
}

1;