Sub::HandlesVia::CodeGenerator(3) User Contributed Perl Documentation Sub::HandlesVia::CodeGenerator(3)

Sub::HandlesVia::CodeGenerator - looks at a Handler and generates a string of Perl code for it

This module is part of Sub::HandlesVia's internal API. It is mostly of interest to people extending Sub::HandlesVia.

Sub::HandlesVia toolkits create a code generator for each attribute they're dealing with, and use the code generator to generate Perl code for one or more delegated methods.

Standard Moose-like constructor.

The toolkit which made this code generator.

The target package for generated methods.

Package name to use as a sandbox; the default is usually fine.

The attribute delegated to.

Informational only.

Indicates whether the generated code should be methods rather than functions. This defaults to true, and false isn't really tested or well-defined.

Variables which need to be closed over when compiling coderefs.

The type constraint for the attribute.

Should the attribute coerce?

A coderef which can be called with $method_name and $coderef, will install the method. Note that it isn't passed the package to install into (which can be found in "target"), so that would need to be closed over.

A coderef which if called, generates a string like '$_[0]'.

Has a sensible default.

All the "generator_for_XXX" methods are called as methods, so have the code generator object as an invocant.

A coderef which if called, generates a string like '$_[0]{attrname}'.

A coderef which if called, generates a string like '$_[0]->attrname'.

A coderef which if called with a parameter, generates a string like "\$_[0]->_set_attrname( $parameter )".

A coderef which if called with a parameter, generates a string like 'undef' or 'q[]' or '{}'.

The parameter is a handler object, which offers a "default_for_reset" attribute which might be able to provide a useful fallback.

A coderef which if called, generates a string like '@_[1..$#_]'.

Has a sensible default.

"generator_for_argc" CodeRef

A coderef which if called, generates a string like '$#_'.

Has a sensible default.

"generator_for_argc" CodeRef

A coderef which if called with a parameter, generates a string like "\$_[$parameter + 1]".

Has a sensible default.

A coderef which if called with a parameter, generates a string like "splice(\@_,1,0,$parameter);".

Has a sensible default.

The default is this coderef:

sub {
  @_==3 or die;
  shift;
  my $method_name = shift;
  my $guts = shift;
  return "\$instance->$method_name($guts)";
}

Called as a method and passed a hashref compilation environment, a type constraint, and a variable name. Generates code to assert that the variable value meets the type constraint, with coercion if appropriate.

Called as a method and passed a Perl string which is an expression evaluating to an error message. Generates code to throw the error.

By default is a coderef returning the empty string. Can be used to generate some additional statements which will be inserted near the top of the method being generated. (Typically after parameter checks but before doing anything serious.) This can be used to unlock a read-only attribute, for example.

Indicates wheter the code generated by "generator_for_get" will be suitable for used as an lvalue.

Indicates wheter the code generated by "generator_for_set" will do type checks.

Indicates wheter we want to ensure that the setter is always called, and we should not try to bypass it, even if we have an lvalue getter.

For each "generator_for_XXX" attribute, there's a corresponding "generate_XXX" method to actually call the coderef, possibly including additional processing.

Given a handler and a method name, will generate a coderef for the handler and install it into the target package.

As above, but just returns the coderef rather than installs it.

Installs a coderef into the target package with the given name.

Please report any bugs to https://github.com/tobyink/p5-sub-handlesvia/issues.

Sub::HandlesVia.

Toby Inkster <tobyink@cpan.org>.

This software is copyright (c) 2020, 2022 by Toby Inkster.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.

2024-09-02 perl v5.40.0