File Coverage

blib/lib/Git/Repository/Plugin/Hooks.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	39	43	90.7

package Git::Repository::Plugin::Hooks;
use parent qw(Git::Repository::Plugin);

use 5.008005;
use strict;
use warnings;

use Carp qw();
use File::Copy qw();

our $VERSION = "0.04";

sub _keywords { qw(
    install_hook
    hook_path
) }

sub install_hook {
    my ($repo, $source, $target) = @_;

    my $dest = $repo->hook_path($target);
    my $copy_rv = File::Copy::copy($source, $dest);
    unless ($copy_rv) {
        Carp::croak "install_hook failed: $!";
    }

    my $chmod_rv = chmod 0755, $dest;
    unless ($chmod_rv) {
        Carp::croak "install_hook failed: $!";
    }
}

sub hook_path {
    my ($repo, $target) = @_;
    return File::Spec->join($repo->git_dir, 'hooks', $target);
}

1;
__END__