;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\"\207" [require ob 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" (#$ . 248))
#@118 Execute a block of Perl code with Babel.
This function is called by `org-babel-execute-src-block'.

(fn BODY PARAMS)
(defalias 'org-babel-execute:perl #[514 "\300
\236A\301\236A\302\236A\303\304!#\305!\306\307$\310\311	\236A\312\n\236A\"\310\313\n\236A\314\236A\"#\207" [: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] 14 (#$ . 353)])
#@83 Prepare SESSION according to the header arguments in PARAMS.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:perl #[514 "\300\301!\207" [error "Sessions are not supported for Perl"] 4 (#$ . 921)])
#@78 Return list of perl statements assigning the block's variables.

(fn PARAMS)
(defalias 'org-babel-variable-assignments:perl #[257 "\300\301\302!\"\207" [mapcar #[257 "\300
A@\"\207" [org-babel-perl--var-to-perl] 4 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 1131)])
#@48 Wrapper for variables inserted into Perl code.
(defvar org-babel-perl-var-wrap "q(%s)" (#$ . 1407))
#@172 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.

(fn VAR &optional VARN)
(defalias 'org-babel-perl--var-to-perl #[513 "\211\203\301<
\302\303!\304\205\305\306!\307\260)\207\310\311_\312\"\211<\2039T\313\314\306\315#\316R)\202=\317\320\"\301U?\205E\321Q\207" [org-babel-perl--lvl 0 "my $" symbol-name "=" "\n" org-babel-perl--var-to-perl ";\n" make-string 2 32 "[\n" mapconcat "" "]" format "q(%s)" ",\n"] 10 (#$ . 1514)])
(defvar org-babel-perl-buffers '(:default))
#@87 Return nil because sessions are not supported by perl.

(fn &optional SESSION PARAMS)
(defalias 'org-babel-perl-initiate-session #[512 "\300\207" [nil] 3 (#$ . 2107)])
(defvar org-babel-perl-wrapper-method "{\n    my $babel_sub = sub {\n        %s\n    };\n    open my $BOH, qq(>%s) or die qq(Perl: Could not open output file.$/);\n    my $rv = &$babel_sub();\n    my $rt = ref $rv;\n    select $BOH;\n    if (qq(ARRAY) eq $rt) {\n        local $\\=$/;\n        local $,=qq(	);\n	foreach my $rv ( @$rv ) {\n	    my $rt = ref $rv;\n	    if (qq(ARRAY) eq $rt) {\n		print @$rv;\n	    } else {\n		print $rv;\n	    }\n	}\n    } else {\n	print $rv;\n    }\n}")
(defvar org-babel-perl-preface nil)
(defvar org-babel-perl-pp-wrapper-method nil)
#@284 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.

(fn SESSION IBODY &optional RESULT-TYPE RESULT-PARAMS)
(defalias 'org-babel-perl-evaluate #[1026 "\203\303\304!\210P\305\306!\307
\310\"\311\267\202M\312\313\314\"\315\316\"\216r\211q\210\317	\"c\210\320 )r
q\210\321\322\211\322\323%\210*\262
\202N\317	\324\n#\"\202N\322\211\205\243\325\235?\205\243\326\235\204\233\327\235\204\233\330\235\204\233\331\235\204\233\332\235\204\233\333\235\204\233\334\235\204\225\335\235\204\225\336\235\204\225\337\235\203\237\340\235\204\237\341!\207\342\343\"\207" [org-babel-perl-preface org-babel-perl-command org-babel-perl-wrapper-method error "Sessions are not supported for Perl" org-babel-temp-file "perl-" org-babel-process-file-name noquote #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 24 value 65)) generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] org-babel-eval buffer-string write-region nil 0 format "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-eval-read-file org-babel-import-elisp-from-file (16)] 15 (#$ . 2851)])
(provide 'ob-perl)