;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:43 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-perl.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\"\207" [require ob ob-eval add-to-list org-babel-tangle-lang-exts ("perl" . "pl")] 3)
(defvar org-babel-default-header-args:perl nil)
#@49 Name of command to use for executing perl code.
(defvar org-babel-perl-command "perl" (#$ . 739))
#@100 Execute a block of Perl code with Babel.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:perl #[(body params) "\306\307\"A\306\310\"A\306\311\"A\312\f\313!#\314	!\315\316	
#\317\306\320\"A\306\321\"A\"\317\306\322\"A\306\323\"A\"#-\207" [params session result-params result-type body full-body assoc :session :result-params :result-type org-babel-expand-body:generic org-babel-variable-assignments:perl org-babel-perl-initiate-session org-babel-reassemble-table org-babel-perl-evaluate org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 8 (#$ . 844)])
#@62 Prepare SESSION according to the header arguments in PARAMS.
(defalias 'org-babel-prep-session:perl #[(session params) "\300\301!\207" [error "Sessions are not supported for Perl"] 2 (#$ . 1476)])
#@65 Return list of perl statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:perl #[(params) "\301\302\301\303\304\305\"\"\"\207" [params mapcar #[(pair) "\301\302@\303A!#\207" [pair format "$%s=%s;" org-babel-perl-var-to-perl] 5] cdr org-babel-get-header :var] 7 (#$ . 1679)])
#@147 Convert an elisp value to a perl variable.
The elisp value, VAR, is converted to a string of perl source code
specifying a var of the same value.
(defalias 'org-babel-perl-var-to-perl #[(var) "<\203\301\302\303\304#\305Q\207\306\307\"\207" [var "[" mapconcat org-babel-perl-var-to-perl ", " "]" format "%S"] 5 (#$ . 1996)])
(defvar org-babel-perl-buffers '(:default))
#@56 Return nil because sessions are not supported by perl.
(defalias 'org-babel-perl-initiate-session #[(&optional session params) "\300\207" [nil] 1 (#$ . 2375)])
(defvar org-babel-perl-wrapper-method "\nsub main {\n%s\n}\n@r = main;\nopen(o, \">%s\");\nprint o join(\"\\n\", @r), \"\\n\"")
(defvar org-babel-perl-pp-wrapper-method nil)
#@226 Pass BODY to the Perl process in SESSION.
If RESULT-TYPE equals 'output then return a list of the outputs
of the statements in BODY, if RESULT-TYPE equals 'value then
return the value of the last statement in BODY, as elisp.
(defalias 'org-babel-perl-evaluate #[(session body &optional result-type) "\203\306\307!\210\310	\311\"\203\312\n\"\207\310	\313\"\205/\314\315!\312\n\316
\317\f\320\"#\"\210\321\f!)\207" [session result-type org-babel-perl-command body tmp-file org-babel-perl-wrapper-method error "Sessions are not supported for Perl" eql output org-babel-eval value org-babel-temp-file "perl-" format org-babel-process-file-name noquote org-babel-eval-read-file] 8 (#$ . 2716)])
(provide 'ob-perl)