File Coverage

blib/lib/Cvs/Simple/Hook.pm

Criterion	Covered	Total	%
statement	4	11	36.3
branch	1	4	25.0
condition			n/a
subroutine	2	4	50.0
pod	3	3	100.0
total	10	22	45.4

package Cvs::Simple::Hook;
use common::sense;

# Version set by dist.ini; do not change here.
our $VERSION = '0.07_04'; # VERSION


{
    my(%PERMITTED) = (
        'All'      => '',
        'add'      => '',
        'checkout' => '',
        'commit'   => '',
        'update'   => '',
        'diff'     => '',
        'status'   => '',
    );


    sub PERM_REQ ()
    {
        my $patt = join '|' => keys %PERMITTED;
        return qr/$patt/;
    }


    sub permitted ($)
    {
        return exists $PERMITTED{$_[0]} ? 1 : 0;
    }


    sub get_hook ($)
    {
        my $cmd      = shift;

        my $PERM_REQ = PERM_REQ;

        if(($cmd)=~/\b($PERM_REQ)\b/) {
            return $1;
        } else {
            return;
        }
    }
}

1;

# ABSTRACT: limits allowed cvs commands.

__END__