| /* |
| * Copyright (C) 2016 Google Inc. |
| * |
| * Licensed under the Apache License, Version 2.0 (the "License"); you may not |
| * use this file except in compliance with the License. You may obtain a copy of |
| * the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, software |
| * distributed under the License is distributed on an "AS IS" BASIS, WITHOUT |
| * WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the |
| * License for the specific language governing permissions and limitations under |
| * the License. |
| */ |
| |
| package com.googlecode.android_scripting.language; |
| |
| /** |
| * Represents the Perl programming language. |
| * |
| * @author igor.v.karp@gmail.com (Igor Karp) |
| */ |
| public class PerlLanguage extends Language { |
| |
| @Override |
| protected String getImportStatement() { |
| return "use Android;\n"; |
| } |
| |
| @Override |
| protected String getRpcReceiverDeclaration(String rpcReceiver) { |
| return "my " + rpcReceiver + " = Android->new();\n"; |
| } |
| |
| @Override |
| protected String getDefaultRpcReceiver() { |
| return "$droid"; |
| } |
| |
| @Override |
| protected String getApplyOperatorText() { |
| return "->"; |
| } |
| } |