view release on metacpan or  search on metacpan

lib/Git/MoreHooks/CheckCommitBase.pm  view on Meta::CPAN

    return &{$USER_HOOK}(@_);
}

sub pre_commit_callback {
    my ($git) = @_;
    my %opts = ( 'old_commit' => ':0', 'new_commit' => undef, 'gerrit-opts' => undef );
    return _call_user_hook( $git, 'pre-commit', \%opts );
}

# This routine can act both as an update or a pre-receive hook.
sub update_callback {
    $log->tracef( 'Entering update_callback(%s)', ( join q{:}, @_ ) );
    my ($git) = @_;
    my %opts = ( 'old_commit' => ':0', 'new_commit' => 0, 'gerrit-opts' => undef );
    return _call_user_hook( $git, 'update', \%opts );
}

sub pre_receive_callback {
    $log->tracef( 'Entering pre_receive_callback(%s)', ( join q{:}, @_ ) );
    my ($git) = @_;
    my %opts = ( 'old_commit' => ':0', 'new_commit' => 0, 'gerrit-opts' => undef );

lib/Git/MoreHooks/ScanCtags.pm  view on Meta::CPAN

    $config->{ lc $CFG }->{dir}        //= [qw( lib bin t )];
    $config->{ lc $CFG }->{suffix}     //= [qw( pm pl t )];
    $config->{ lc $CFG }->{executable} //= [1];
    $config->{ lc $CFG }->{verbose}    //= [1];

    return;
}

##########

sub update_tags_file {
    my ( $git, $prev_head_ref, $new_head_ref, $is_branch_checkout ) = @_;

    _setup_config($git);

    my $errors = 0;
    eval {
        require Perl::Tags::Naive::Moose;
        require Perl::Tags::Naive::Lib;
        require Perl::Tags::PPI;
        require Perl::Tags::Hybrid;