https://mojolicious.org/perldoc/Mojolicious/Guides/Rendering#Embedded-Perl


  <% Perl code %>
  <%= Perl expression, replaced with XML escaped result %>
  <%== Perl expression, replaced with result %>
  <%# Comment, useful for debugging %>
  <%% Replaced with "<%", useful for generating templates %>
  % Perl code line, treated as "<% line =%>" (explained later)
  %= Perl expression line, treated as "<%= line %>"
  %== Perl expression line, treated as "<%== line %>"
  %# Comment line, useful for debugging
  %% Replaced with "%", useful for generating templates


====== Constructor ======
<code perl>
sub new {
  my $class = shift;
  bless @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {}, ref $class || $class;
}
</code>

<code perl>
sub new {
    my ($class, $aaa) = @_;
    my $self;
    if (ref($class) ne '' && $class->isa('my_expected_subclass')) {
        $self = $class;
    } else {
        $self = bless {class => $class}, $class;
    }

    $self->{xyz}      = $aaa;

    return $self;
}
</code>