/*
 * 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 "->";
  }
}