Sub::Chain::Group - Group chains of subs by field name
version 0.014
my $chain = Sub::Chain::Group->new(); $chain->append(\&trim, fields => [qw(name address)]); # append other subs to this or other fields as desired... my $trimmed = $chain->call(address => ' 123 Street Rd. '); # or, using a Sub::Chain subclass: my $named = Sub::Chain::Group->new( chain_class => 'Sub::Chain::Named', chain_args => { subs => { uc => sub { uc $_[0] }, reverse => sub { reverse $_[0] }, }} ); $named->group(fruits => [qw(apple orange banana)]); $named->append('uc', groups => 'fruits'); $named->append('reverse', fields => 'orange'); my $fruit = $named->call({apple => 'green', orange => 'dirty'}); # returns a hashref: {apple => 'GREEN', orange => 'YTRID'}
This module provides an interface for managing multiple Sub::Chain instances for a group of fields. It is mostly useful for applying a chain of subs to a set of data (like a hash or array (like a database record)). In addition to calling different sub chains on specified fields It uses Set::DynamicGroups to allow you to build sub chains for dynamic groups of fields.
my $chain = Sub::Chain::Group->new(%opts); my $chain = Sub::Chain::Group->new( chain_class => 'Sub::Chain::Named', chain_args => {subs => {happy => sub { ":-P" } } }, );
Constructor; Takes a hash or hashref of options.
Possible options:
chain_class
The Sub::Chain class that will be instantiated for each field; You can set this to Sub::Chain::Named or another subclass.
chain_args
A hashref of arguments that will be sent to the constructor of the chain_class module. Here you can set alternate default values (see "OPTIONS" in Sub::Chain) or, for example, include the subs parameter if you're using Sub::Chain::Named.
subs
hook_as_hash
Normally hooks are called with the data structures passed in (hash refs, array refs, or strings). If this option is enabled (set to a true value) hooks will be called with a hashref instead (derived from the input data) to enable simpler more consistent hook functions. See "HOOKS" for more information.
warn_no_field
Whether or not to emit a warning if asked to call a sub chain on a field but no subs were specified for that field (specifically when "chain" is called and no chain exists). Valid values are:
never - never warn
never
always - always warn
always
single - warn when called for a single field (but not when "call" is used with a hashref or arrayref).
single
The default is single.
$chain->append($sub, %options); # or \%options $chain->append(\&trim, fields => [qw(fld1 fld2)]); $chain->append(\&trim, field => 'col3', opts => {on_undef => 'blank'}); # or, if using Sub::Chain::Named $chain->append('match', groups => 'group1', args => ['pattern']);
Append a sub onto the chain for the specified fields and/or groups.
fields (or field)
fields
field
Field name(s) (string or array ref)
groups (or group)
groups
group
Group name(s) (string or array ref)
hooks (or hook)
hooks
hook
Valid values: before, after (string or array ref) See "HOOKS" for explanation.
before
after
args (or arguments)
args
arguments
An arrayref of arguments to pass to the sub (see "append" in Sub::Chain)
opts (or options)
opts
options
A hashref of options for the sub (see "OPTIONS" in Sub::Chain)
my $values = $chain->call({key => 'value', ...}); my $values = $chain->call([qw(fields)], [qw(values)]); my $value = $chain->call('address', '123 Street Road');
Call the sub chain appropriate for each field of the supplied data.
The input (and output) can be one of the following:
hashref => hashref
If a sole hash ref is supplied it will be looped over and a hash ref of result data will be returned. For example:
# for use with DBI $sth->execute; while( my $hash = $sth->fetchrow_hashref() ){ my $new_hash = $chain->call($hash); }
arrayref => arrayref
If two array refs are supplied, the first should be a list of field names, and the second the corresponding data. For example:
# for use with Text::CSV my $header = $csv->getline($io); while( my $array = $csv->getline($io) ){ my $new_array = $chain->call($header, $array); }
string, scalar => scalar
If two arguments are given, and the first is a string, it should be the field name, and the second argument the data. The return value will be the data after it has been passed through the chain.
# simple data my $trimmed = $chain->call('spaced', ' lots of space ');
$chain->chain($field);
Return the sub chain for the given field name.
Process the queue of group and field specifications.
Queuing allows you to specify subs for a group before you specify what fields belong in that group.
This method is called when another method needs something from the chain and there are still specifications in the queue (like "chain" and "call", for instance).
$chain->fields(@fields);
Add fields to the list of all known fields. This tells the object which fields are available or expected which can be useful for specifying groups based on exclusions.
For example:
$chain->group(some => {not => [qw(primary secondary)]}); $chain->fields(qw(primary secondary this that)); # the 'some' group will now contain ['this', 'that'] $chain->fields('another'); # the 'some' group will now contain ['this', 'that', 'another']
This is a convenience method. Arguments are passed to "add_items" in Set::DynamicGroups.
$chain->group(groupname => [qw(fields)]);
Add fields to the specified group name.
This is a convenience method. Arguments are passed to "add" in Set::DynamicGroups.
my $set_dg = $chain->groups();
Return the object's instance of Set::DynamicGroups.
This can be useful if you need more advanced manipulation of the groups than is available through the "group" and "fields" methods.
This method is used internally to instantiate a new Sub::Chain using the chain_class and chain_args options.
Force the queue of chain specifications to be completely reprocessed.
This gets called automatically when groups are changed after the queue was initially processed.
In addition to building sub chains for specific fields (or groups) there are also hooks available to process the input as a whole (the hash ref or array refs passed to "call").
Specify hook => 'before' (or hook => 'after') when calling "append" (instead of specifying fields or groups) and the provided sub will be appended to a chain that will be able to modify the input record as a whole before (or after) the sub chains are called for each field.
hook => 'before'
hook => 'after'
These can modify the input by updating (or even adding new) fields:
sub debug_hash { my $h = shift; $h->{debug} = join ':', keys %$h; return $h; } $chain->append(\&debug_hash, hook => 'before');
The sub should return the (modified) data structure for consistency with other chained subs.
When passing a hash ref to "call" the hash ref will be passed to the hook (as shown above).
If two array refs are passed to "call" the array ref of values will be passed to the hook as the first argument and the array ref of keys will be passed as the second argument. This is consistent with all other chained subs that receive their value as the first argument.
$chain->call([qw(a b c), [1, 2, 3]); # sub will receive: ([1, 2, 3], [qw(a b c)]) # and should return an array ref of (possibly modified) values
You can also set hook_as_hash => 1 in the constructor which will use the two input arrays to build a hash ref, pass the hash ref to any hook subs (which should return a hash ref), and in the end return an array ref of the fields of that hash ref preserving the order of the original array ref. This can be simpler to work with in the sub (and enable using the same sub regardless of the input type).
hook_as_hash => 1
$chain->call([qw(a b c)], [1, 2, 3]); # sub will receive: ({a => 1, b => 2, c => 3}) # and should return a (possibly modified) hash ref.
If a simple string key is passed to "call" the hooks will be called with the value as the first argument and the field name as the second (similar to the way array refs are handled). The hook_as_hash option will also work here; A hashref will be passed to the hooks and ultimately return the single value.
Note: A shallow clone is performed on the ref(s) (but not a deep clone) so it's up to you to determine if modifying the structures in the hooks is acceptable or if you need to do a deep clone.
See "TODO" in Sub::Chain.
Sub::Chain
Sub::Chain::Named
Set::DynamicGroups
You can find documentation for this module with the perldoc command.
perldoc Sub::Chain::Group
The following websites have more information about this module, and may be of help to you. As always, in addition to those websites please use your favorite search engine to discover more resources.
MetaCPAN
A modern, open-source CPAN search engine, useful to view POD in HTML format.
http://metacpan.org/release/Sub-Chain-Group
Please report any bugs or feature requests by email to bug-sub-chain-group at rt.cpan.org, or through the web interface at https://rt.cpan.org/Public/Bug/Report.html?Queue=Sub-Chain-Group. You will be automatically notified of any progress on the request by the system.
bug-sub-chain-group at rt.cpan.org
https://github.com/rwstauner/Sub-Chain-Group
git clone https://github.com/rwstauner/Sub-Chain-Group.git
Randy Stauner <rwstauner@cpan.org>
This software is copyright (c) 2010 by Randy Stauner.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install Sub::Chain::Group, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Sub::Chain::Group
CPAN shell
perl -MCPAN -e shell install Sub::Chain::Group
For more information on module installation, please visit the detailed CPAN module installation guide.