1. Manuals
  2. Tumbleweed
  3. perl-Sub-HandlesVia
  4. Sub::HandlesVia::Handler(3pm)

Scroll to navigation

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

NAME

Sub::HandlesVia::Handler - template for a method that can be delegated to

DESCRIPTION

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

This module works in conjunction with Sub::HandlesVia::CodeGenerator and subclasses of Sub::HandlesVia::Toolkit to build a string of Perl code which can be compiled into a method to install into your class.

CONSTRUCTORS

new( %attributes )

Standard Moose-like constructor.

"lookup( $method, $trait )"

Looks up a method from existing handler libraries.

  my $h = Sub::HandlesVia::Handler->lookup( 'get', 'Array' );

Curried version:

  my $h = Sub::HandlesVia::Handler->lookup( [ 'get', 0 ], 'Array' );

The $trait may be an arrayref of possible traits.

EXPORTS

Nothing is exported by default.

"handler %attributes"

Shortcut for the "new" constructor.

  use Sub::HandlesVia::Handler 'handler';
  
  my $h = handler( %attr );
  # is the same as
  my $h = Sub::HandlesVia::Handler->new( %attr );

ATTRIBUTES

"name" Str

The name of the function being delegated to.

"is_mutator" Bool

Indicates whether this handler might mutate an attribute value. The default is to try to detect it based on analysis of the templates.

"template" Str

Specially formatted string (see section below) containing the Perl code to implement the method.

"lvalue_template" Maybe[Str]

If defined, a shortcut for implementing it when the attribute slot value can be used as an lvalue.

"args" Maybe[PositiveOrZeroInt]

The number of arguments which the method being generated expects (does not include the attibute value itself).

"min_args" and "max_args" Maybe[PositiveOrZeroInt]

For methods which take a variable number of arguments. If omitted, default to "args".

"signature" Maybe[ArrayRef[TypeTiny]]

A signature for said arguments.

"usage" Str

A signature to show in documentation, like '$index, $value'. If not provided, will be generated magically from "args", "min_args", and "max_args".

"curried" Maybe[ArrayRef[Item]]

An arrayref of curried arguments.

"is_chainable" Bool

Whether to force the generated method to be chainable.

"no_validation_needed" Bool

Whether to do less validation of input data.

"default_for_reset" Maybe[Str]

If this handler has to "reset" an attribute value to its default, and the attribute doesn't have a default, this string of Perl code is evaluated to provide a default. An example might be "[]".

"prefer_shift_self" Bool

Indicates this handler would prefer the code generator to shift $self off @_.

"documentation" Maybe[Str]

String of pod to describe the handler.

"_examples" Maybe[CodeRef]

This coderef, if called with parameters $class, $attr, and $method, will generate a code example to insert into the pod.

"additional_validation" Maybe[CodeRef]

Coderef providing a slightly annoying API. To be described later.

"allow_getter_shortcuts" Bool

Defaults to true. Rarely useful to override.

METHODS

has_min_args() and has_max_args()

Indicate whether this handler has a defined min or max args.

install_method( %args )

The required arguments are "method_name" and "code_generator". Installs the delegated method into the target class (taken from the code generator).

code_as_string( %args )

Same required arguments as "install_method", but returns the Perl code for the method as a string.

curry( @args )

Pseudo-constructor.

Creates a new Sub::HandlesVia::Handler object like this one, but with the given arguments curried.

"loose"

Pseudo-constructor.

Creates a new Sub::HandlesVia::Handler object like this one, but with looser argument validation.

"chainable"

Pseudo-constructor.

Creates a new Sub::HandlesVia::Handler object like this one, but chainable.

TEMPLATE FORMAT

The template is a string of Perl code, except if the following special things are found in it, they are substituted.

$SELF
The invocant.
$SLOT
Direct hashref access for the attribute.
$GET
The current value of the attribute.
@ARG
Any additional arguments passed to the delegated method.

$ARG[$n] will also work.

"#ARG"
The number of additional arguments passed to the delegated method.
$ARG
The first element in @ARG.
$DEFAULT
The attribute's default value, if known.
"« EXPR »"
An expression in double angled quotes sets the attribute's value to the expression.

For example, a handler to halve the value of a numeric attribute might be:

  'Sub::HandlesVia::Handler'->new(
    name => 'MyNumber:halve',
    args => 0,
    template => '« $GET / 2 »',
    lvalue_template => '$GET /= 2',
  );

SUBCLASSES

Sub::HandlesVia::Handler::Traditional and Sub::HandlesVia::Handler::CodeRef are provided. See source code for this module for more info.

BUGS

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

SEE ALSO

Sub::HandlesVia.

AUTHOR

Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE

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.

DISCLAIMER OF WARRANTIES

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.

2023-04-06 perl v5.38.2