File: default.expect.txt

package info (click to toggle)
highlight.js 10.7.3%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 8,332 kB
  • sloc: javascript: 41,059; makefile: 157; python: 29; sh: 20
file content (42 lines) | stat: -rw-r--r-- 3,234 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
<span class="hljs-comment"># loads object</span>
<span class="hljs-function"><span class="hljs-keyword">sub</span> <span class="hljs-title">load</span>
</span>{
  <span class="hljs-keyword">my</span> $flds = $c-&gt;db_load($id,@_) || <span class="hljs-keyword">do</span> {
    Carp::carp <span class="hljs-string">&quot;Can`t load (class: $c, id: $id): &#x27;$!&#x27;&quot;</span>; <span class="hljs-keyword">return</span> <span class="hljs-keyword">undef</span>
  };
  <span class="hljs-keyword">my</span> $o = $c-&gt;_perl_new();
  $id12 = $id / <span class="hljs-number">24</span> / <span class="hljs-number">3600</span>;
  $o-&gt;{<span class="hljs-string">&#x27;ID&#x27;</span>} = $id12 + <span class="hljs-number">123</span>;
  <span class="hljs-comment">#$o-&gt;{&#x27;SHCUT&#x27;} = $flds-&gt;{&#x27;SHCUT&#x27;};</span>
  <span class="hljs-keyword">my</span> $p = $o-&gt;props;
  <span class="hljs-keyword">my</span> $vt;
  $string =~ <span class="hljs-regexp">m/^sought_text$/</span>;
  $items = <span class="hljs-keyword">split</span> <span class="hljs-regexp">//</span>, <span class="hljs-string">&#x27;abc&#x27;</span>;
  $string //= <span class="hljs-string">&quot;bar&quot;</span>;
  <span class="hljs-keyword">for</span> <span class="hljs-keyword">my</span> $key (<span class="hljs-keyword">keys</span> %$p)
  {
    <span class="hljs-keyword">if</span>(${$vt.<span class="hljs-string">&#x27;::property&#x27;</span>}) {
      $o-&gt;{$key . <span class="hljs-string">&#x27;_real&#x27;</span>} = $flds-&gt;{$key};
      <span class="hljs-keyword">tie</span> $o-&gt;{$key}, <span class="hljs-string">&#x27;CMSBuilder::Property&#x27;</span>, $o, $key;
    }
  }
  $o-&gt;save <span class="hljs-keyword">if</span> <span class="hljs-keyword">delete</span> $o-&gt;{<span class="hljs-string">&#x27;_save_after_load&#x27;</span>};

  <span class="hljs-comment"># GH-117</span>
  <span class="hljs-keyword">my</span> $g = <span class="hljs-keyword">glob</span>(<span class="hljs-string">&quot;/usr/bin/*&quot;</span>);

  <span class="hljs-keyword">return</span> $o;
}

<span class="mojolicious"><span class="hljs-meta">__DATA__</span><span class="xml">
</span></span><span class="hljs-comment">@@ layouts/default.html.ep</span><span class="mojolicious"><span class="xml">
<span class="hljs-meta">&lt;!DOCTYPE <span class="hljs-meta-keyword">html</span>&gt;</span>
<span class="hljs-tag">&lt;<span class="hljs-name">html</span>&gt;</span>
  <span class="hljs-tag">&lt;<span class="hljs-name">head</span>&gt;</span><span class="hljs-tag">&lt;<span class="hljs-name">title</span>&gt;</span>&lt;%=</span><span class="perl"> title </span><span class="xml">%&gt;<span class="hljs-tag">&lt;/<span class="hljs-name">title</span>&gt;</span><span class="hljs-tag">&lt;/<span class="hljs-name">head</span>&gt;</span>
  <span class="hljs-tag">&lt;<span class="hljs-name">body</span>&gt;</span>&lt;%=</span><span class="perl"> content </span><span class="xml">%&gt;<span class="hljs-tag">&lt;/<span class="hljs-name">body</span>&gt;</span>
<span class="hljs-tag">&lt;/<span class="hljs-name">html</span>&gt;</span>
</span><span class="hljs-meta">__END__</span></span>

<span class="hljs-comment">=head1 NAME
POD till the end of file
</span>