Select Code to Download

 $_->(@args) foreach @{$self->get_hooks_for($hook_name)};

$VAR1 = [
          sub { "DUMMY" },
          sub { "DUMMY" }
        ];

$VAR1 = [
          sub { "DUMMY" },
          undef
        ];

   foreach my $hook (@{ $self->get_hooks_for($hook_name) }) {
       $hook->(@args);
   }

my @hooks = @{ $self->get_hooks_for($hook_name) };

$_->(@args) foreach @hooks;