File Coverage

blib/lib/Git/Repository/Plugin.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	8	8	100.0
pod	1	1	100.0
total	46	47	97.8

package Git::Repository::Plugin;
$Git::Repository::Plugin::VERSION = '1.324';
use strict;
use warnings;
use 5.006;
use Carp;

sub install {
    my ( $class, @keywords ) = @_;

    # get the list of keywords to install
    my %keyword = map { $_ => 1 } my @all_keywords = $class->_keywords;
    @keywords = @all_keywords if !@keywords;
    @keywords = grep {
        !( !exists $keyword{$_} and carp "Unknown keyword '$_' in $class" )
    } @keywords;
    carp "No keywords installed from $class" if !@keywords;

    # install keywords
    no strict 'refs';
    *{"Git::Repository::$_"} = \&{"$class\::$_"} for @keywords;
}

sub _keywords {
    my ($class) = @_;
    carp "Use of \@KEYWORDS by $class is deprecated";
    no strict 'refs';
    return @{"$class\::KEYWORDS"};
}

1;

__END__