src/lib/Gitolite/Triggers.pm

   1 package Gitolite::Triggers;
   2
   3 # load and run triggered modules
   4 # ----------------------------------------------------------------------
   5
   6 #<<<
   7 @EXPORT = qw(
   8 );
   9 #>>>
  10 use Exporter 'import';
  11
  12 use Gitolite::Rc;
  13 use Gitolite::Common;
  14
  15 use strict;
  16 use warnings;
  17
  18 # ----------------------------------------------------------------------
  19
  20 sub run {
  21     my ( $module, $sub, @args ) = @_;
  22     $module = "Gitolite::Triggers::$module" if $module !~ /^Gitolite::/;
  23
  24     eval "require $module";
  25     _die "$@" if $@;
  26     my $subref;
  27     eval "\$subref = \\\&$module" . "::" . "$sub";
  28     _die "module '$module' does not exist or does not have sub '$sub'" unless ref($subref) eq 'CODE';
  29
  30     $subref->(@args);
  31 }
  32
  33 1;