<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> <span class="hljs-variable">$flds</span> = <span class="hljs-variable">$c</span>-&gt;db_load(<span class="hljs-variable">$id</span>,<span class="hljs-variable">@_</span>) || <span class="hljs-keyword">do</span> {
    Carp::carp <span class="hljs-string">&quot;Can`t load (class: <span class="hljs-variable">$c</span>, id: <span class="hljs-variable">$id</span>): &#x27;<span class="hljs-variable">$!</span>&#x27;&quot;</span>; <span class="hljs-keyword">return</span> <span class="hljs-keyword">undef</span>
  };
  <span class="hljs-keyword">my</span> <span class="hljs-variable">$o</span> = <span class="hljs-variable">$c</span>-&gt;_perl_new();
  <span class="hljs-variable">$id12</span> = <span class="hljs-variable">$id</span> / <span class="hljs-number">24</span> / <span class="hljs-number">3600</span>;
  <span class="hljs-variable">$o</span>-&gt;{<span class="hljs-string">&#x27;ID&#x27;</span>} = <span class="hljs-variable">$id12</span> + <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> <span class="hljs-variable">$p</span> = <span class="hljs-variable">$o</span>-&gt;props;
  <span class="hljs-keyword">my</span> <span class="hljs-variable">$vt</span>;
  <span class="hljs-variable">$string</span> =~ <span class="hljs-regexp">m/^sought_text$/</span>;
  <span class="hljs-variable">$items</span> = <span class="hljs-keyword">split</span> <span class="hljs-regexp">//</span>, <span class="hljs-string">&#x27;abc&#x27;</span>;
  <span class="hljs-variable">$string</span> //= <span class="hljs-string">&quot;bar&quot;</span>;
  <span class="hljs-keyword">for</span> <span class="hljs-keyword">my</span> <span class="hljs-variable">$key</span> (<span class="hljs-keyword">keys</span> <span class="hljs-variable">%$</span>p)
  {
    <span class="hljs-keyword">if</span>(${<span class="hljs-variable">$vt</span>.<span class="hljs-string">&#x27;::property&#x27;</span>}) {
      <span class="hljs-variable">$o</span>-&gt;{<span class="hljs-variable">$key</span> . <span class="hljs-string">&#x27;_real&#x27;</span>} = <span class="hljs-variable">$flds</span>-&gt;{<span class="hljs-variable">$key</span>};
      <span class="hljs-keyword">tie</span> <span class="hljs-variable">$o</span>-&gt;{<span class="hljs-variable">$key</span>}, <span class="hljs-string">&#x27;CMSBuilder::Property&#x27;</span>, <span class="hljs-variable">$o</span>, <span class="hljs-variable">$key</span>;
    }
  }
  <span class="hljs-variable">$o</span>-&gt;save <span class="hljs-keyword">if</span> <span class="hljs-keyword">delete</span> <span class="hljs-variable">$o</span>-&gt;{<span class="hljs-string">&#x27;_save_after_load&#x27;</span>};

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

  <span class="hljs-comment"># GH-3934</span>
  <span class="hljs-keyword">print</span> <span class="hljs-string">&quot;@&quot;</span>;
  <span class="hljs-keyword">print</span>;

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

<span class="language-mojolicious"><span class="hljs-meta">__DATA__</span><span class="language-xml">
</span></span><span class="hljs-comment">@@ layouts/default.html.ep</span><span class="language-mojolicious"><span class="language-xml">
<span class="hljs-meta">&lt;!DOCTYPE <span class="hljs-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="language-perl"> title </span><span class="language-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="language-perl"> content </span><span class="language-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>
