Select Code to Download

Select or download this

use Catalyst qw/-Debug ConfigLoader Static::Simple
                Prototype /;

Select or download this

<head>
[% c.prototype.define_javascript_functions %]
</head>

Select or download this

  <table border="1" style="border: 1px;">
    <tr>
...
       }
     ) %]
  </table>

Select or download this

    [% task_name        = 'Project Name' %]
    [% task_input_name  = 'project'      %]
    [% task_output_name = 'project'      %]
    [% task_input_id    = 'project_id'   %]
    [% INCLUDE taskrow.tt               %]

Select or download this

sub newrow : Local {
  my( $self, $c ) = @_;
...
  return $html;
}

Select or download this

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)