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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
package Rex::Hook;
use v5.12.5;
use warnings;
our $VERSION = '1.14.1'; # VERSION
=head1 NAME
Rex::Hook - manage Rex hooks
=head1 DESCRIPTION
This module manages hooks of various Rex functions.
=head1 SYNOPSIS
use Rex::Hook;
register_function_hooks { $state => { $function => $coderef, }, };
=cut
require Exporter;
use base qw(Exporter);
use vars qw(@EXPORT);
@EXPORT = qw(register_function_hooks);
my $__hooks = {};
=head1 EXPORTED FUNCTIONS
=head2 register_function_hooks { $state => { $function => $coderef } };
Registers a C<$coderef> to be called when C<$function> reaches C<$state> during its execution.
For example:
register_function_hooks { before_change => { file => \&backup } };
C<$coderef> may get parameters passed to it depending on the hook in question. See the given hook's documentation about details.
=cut
sub register_function_hooks {
my ($hooks) = @_;
for my $state ( keys %{$hooks} ) {
for my $func ( keys %{ $hooks->{$state} } ) {
if ( !exists $__hooks->{$state}->{$func} ) {
$__hooks->{$state}->{$func} = [];
}
push @{ $__hooks->{$state}->{$func} }, $hooks->{$state}->{$func};
}
}
}
sub run_hook {
my ( $command, $state, @args ) = @_;
if ( !exists $__hooks->{$state}->{$command} ) {
return;
}
my $func_arr = $__hooks->{$state}->{$command};
for my $func ( @{$func_arr} ) {
@args = $func->(@args);
}
return @args;
}
1;
|
