HTML::Mason::Interp(3pm) | User Contributed Perl Documentation | HTML::Mason::Interp(3pm) |
HTML::Mason::Interp - Mason Component Interpreter
my $i = HTML::Mason::Interp->new (data_dir=>'/usr/local/mason', comp_root=>'/usr/local/www/htdocs/', ...other params...);
Interp is the Mason workhorse, executing components and routing their output and errors to all the right places. In a mod_perl environment, Interp objects are handed off immediately to an ApacheHandler object which internally calls the Interp implementation methods. In that case the only user method is the new() constructor.
Under Apache and CGI, comp_root defaults to the server's document root. In standalone mode comp_root defaults to the current working directory.
This parameter may be either a scalar or an array reference. If it is a scalar, it should be a filesystem path indicating the component root. If it is an array reference, it should be of the following form:
[ [ foo => '/usr/local/foo' ], [ bar => '/usr/local/bar' ] ]
This is an array of two-element array references, not a hash. The "keys" for each path must be unique and their "values" must be filesystem paths. These paths will be searched in the provided order whenever a component path is resolved. For example, given the above component roots and a component path of /products/index.html, Mason would search first for /usr/local/foo/products/index.html, then for /usr/local/bar/products/index.html.
The keys are used in several ways. They help to distinguish component caches and object files between different component roots, and they appear in the "title()" of a component.
When you specify a single path for a component root, this is actually translated into
[ [ MAIN => path ] ]
If you have turned on dynamic_comp_root, you may modify the component root(s) of an interpreter between requests by calling "$interp->comp_root" with a value. However, the path associated with any given key may not change between requests. For example, if the initial component root is
[ [ foo => '/usr/local/foo' ], [ bar => '/usr/local/bar' ], ]
then it may not be changed to
[ [ foo => '/usr/local/bar' ], [ bar => '/usr/local/baz' ],
but it may be changed to
[ [ foo => '/usr/local/foo' ], [ blarg => '/usr/local/blarg' ] ]
In other words, you may add or remove key/path pairs but not modify an already-used key/path pair. The reason for this restriction is that the interpreter maintains a component cache per key that would become invalid if the associated paths were to change.
Under Apache, data_dir defaults to a directory called "mason" under the Apache server root. You will need to change this on certain systems that assign a high-level server root such as /usr!
In non-Apache environments, data_dir has no default. If it is left unspecified, Mason will not use object files, and the default data cache class will be "MemoryCache" instead of "FileCache".
ignore_warnings_expr => 'Global symbol.*requires explicit package'
If set to undef, all warnings are heeded. If set to '.', warnings are turned off completely as a specially optimized case.
By default, this is set to 'Subroutine .* redefined'. This allows you to declare global subroutines inside <%once> sections and not receive an error when the component is reloaded.
preloads => ['/foo/index.html','/bar/*.pl']
Default is the empty list. For maximum performance, this should only be used for components that are frequently viewed and rarely updated. See the preloading components section of the administrator's manual for further details.
As mentioned in the developer's manual, a component's "<%once>" section is executed when it is loaded. For preloaded components, this means that this section will be executed before a Mason or Apache request exist, so preloading a component that uses $m or $r in a "<%once>" section will fail.
When true, Mason assumes that the component source tree is unchanging: it will not check component source files to determine if the memory cache or object file has expired. This can save many file stats per request. However, in order to get Mason to recognize a component source change, you must flush the memory cache and remove object files. See static_source_touch_file for one easy way to arrange this.
We recommend turning this mode on in your production sites if possible, if performance is of any concern.
This provides a convenient way to implement static_source mode. All you need to do is make sure that a single file gets touched whenever components change. For Mason's part, checking a single file at the beginning of a request is much cheaper than checking every component file when static_source=0.
All of the above properties have standard accessor methods of the same name. Only comp_root and ignore_warnings_expr can be modified in an existing interpreter; the rest are read-only.
The right hand side may be one of several things. It can be a subroutine reference. It can also be a string match "/^\w+$/", in which case it is assumed to be the name of a subroutine in the "HTML::Mason::Escapes" module. Finally, if it is a string that does not match the above regex, then it is assumed to be "eval"able code, which will return a subroutine reference.
When setting these with "PerlSetVar" directives in an Apache configuration file, you can set them like this:
PerlSetVar MasonEscapeFlags "h => \&HTML::Mason::Escapes::basic_html_escape" PerlSetVar MasonEscapeFlags "flag => \&subroutine" PerlSetVar MasonEscapeFlags "uc => sub { ${$_[0]} = uc ${$_[0]}; }" PerlAddVar MasonEscapeFlags "thing => other_thing"
This is useful for running Mason outside of a web environment. See "using Mason from a standalone script" in HTML::Mason::Admin for examples.
This method isn't generally useful in a mod_perl environment; see subrequests instead.
If Mason encounters an error during processing, an exception will be thrown.
Example of usage:
# Make an anonymous component my $anon_comp = eval { $interp->make_component ( comp_source => '<%perl>my $name = "World";</%perl>Hello <% $name %>!' ) }; die $@ if $@; $m->comp($anon_comp);
# Set a global variable $dbh containing the database handle $interp->set_global(dbh => DBI->connect(...)); # Set a global hash %session from a local hash $interp->set_global('%session', %s);
The global is set in the package that components run in: usually "HTML::Mason::Commands", although this can be overridden via the in_package parameter. The lines above, for example, are equivalent to:
$HTML::Mason::Commands::dbh = DBI->connect(...); %HTML::Mason::Commands::session = %s;
assuming that in_package has not been changed.
Any global that you set should also be registered with the allow_globals parameter; otherwise you'll get warnings from "strict".
2022-10-13 | perl v5.34.0 |