my ($pkg, %sub) = @_;
# Valid callbacks
- my @callback = qw<comp exec>;
+ my @callback = qw<comp exec free>;
for (@callback) {
next unless exists $sub{$_};
{
my ($re, %callback) = @_;
- my %map = map { $_ => "_$_" } qw<exec>;
+ my %map = map { $_ => "_$_" } qw<exec free>;
for my $key (keys %callback) {
my $name = $map{$key};