GOMOR / Onyphe-4.17 / lib / OPP / Proc / Fieldcount.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
—
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

              
#
# $Id: Fieldcount.pm,v cfbea05b0bc4 2025/01/28 15:06:19 gomor $
#
package OPP::Proc::Fieldcount;
use strict;
use warnings;
use base qw(OPP::Proc);
__PACKAGE__->cgBuildIndices;
our $VERSION = '1.00';
#
# | fieldcount domain
#
sub process {
   my $self = shift;
   my ($input) = @_;
   my $field = $self->options->{0} || {};
   my $values = $self->value($input, $field);
   return 1 unless defined($values);  # No field in doc, skip it
   my $new_fieldname = $field.'count';
   $new_fieldname =~ s{\.}{}g;
    
   # Update document with count field:
   $input->{$new_fieldname} = @$values;
   $self->output->add($input);
   return 1;
}
1;
__END__
=head1 NAME
OPP::Proc::Fieldcount - fieldcount processor
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2025, ONYPHE SAS
You may distribute this module under the terms of The BSD 3-Clause License.
See LICENSE file in the source distribution archive.
=head1 AUTHOR
Patrice E<lt>GomoRE<gt> Auffret
=cut