1 /* 2 * Copyright (C) 2016 Google Inc. 3 * 4 * Licensed under the Apache License, Version 2.0 (the "License"); you may not 5 * use this file except in compliance with the License. You may obtain a copy of 6 * the License at 7 * 8 * http://www.apache.org/licenses/LICENSE-2.0 9 * 10 * Unless required by applicable law or agreed to in writing, software 11 * distributed under the License is distributed on an "AS IS" BASIS, WITHOUT 12 * WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the 13 * License for the specific language governing permissions and limitations under 14 * the License. 15 */ 16 17 package com.googlecode.android_scripting.language; 18 19 /** 20 * Represents the Perl programming language. 21 * 22 * @author igor.v.karp@gmail.com (Igor Karp) 23 */ 24 public class PerlLanguage extends Language { 25 26 @Override getImportStatement()27 protected String getImportStatement() { 28 return "use Android;\n"; 29 } 30 31 @Override getRpcReceiverDeclaration(String rpcReceiver)32 protected String getRpcReceiverDeclaration(String rpcReceiver) { 33 return "my " + rpcReceiver + " = Android->new();\n"; 34 } 35 36 @Override getDefaultRpcReceiver()37 protected String getDefaultRpcReceiver() { 38 return "$droid"; 39 } 40 41 @Override getApplyOperatorText()42 protected String getApplyOperatorText() { 43 return "->"; 44 } 45 } 46