This is an old revision of the document!

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

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

  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;