Catmandu::Fix::Has(3pm) | User Contributed Perl Documentation | Catmandu::Fix::Has(3pm) |
Catmandu::Fix::Has - helper class for creating Fix-es with (optional) parameters
package Catmandu::Fix::foo; use Moo; use Catmandu::Fix::Has; has greeting => (fix_arg => 1); # required parameter 1 has message => (fix_arg => 1); # required parameter 2 has eol => (fix_opt => 1 , default => sub {'!'} ); # optional parameter 'eol' with default '!' sub fix { my ($self,$data) = @_; print STDERR $self->greeting . ", " . $self->message . $self->eol . "\n"; $data; } 1;
use Catmandu::Fix::Has; has message => (fix_arg => 1); # required parameter 1 has number => (fix_arg => 1); # required parameter 2
When the fix_arg is set to 'collect', then all arguments are read into an array. The Fix containing the code fragment below needs at least 1 or more arguments. All arguments will get collected into the "messages" array:
use Catmandu::Fix::Has; has messages => (fix_arg => 'collect'); # required parameter
use Catmandu::Fix::Has; has message => (fix_opt => 1); # optional parameter 1 has number => (fix_opt => 1); # optional parameter 2
When the fix_opt is set to 'collect', then all optional argument are read into an array. The Fix containing the code fragment below needs at least 1 or more arguments. All arguments will get collected into the "options" array:
use Catmandu::Fix::Has; has options => (fix_opt => 'collect'); # optional parameter
Catmandu::Fix
2023-03-03 | perl v5.36.0 |