Compile protected Singleton

gistfile1.as

// сам синглтон
package  {

  public class Singleton {
		private static var _instance:Singleton;

		public var value:String = "всё ок";
		
		public function Singleton(protector:Protector) 	{
		}
		
		static public function get instance():Singleton {
			if (!_instance)
				_instance = new Singleton( new Protector());
				
			return _instance;
		}
		
	}

}

internal class Protector{
	
	public function Protector() {
		super();
	}
}


// использование

....
      trace (Singleton.instance.value); // всё ок
  		// вот тут ошибка компиляции, т.к. никому кроме синглетона,
			// не получить доступ к классу Protecor
			var s:Singleton = new Singleton();