File Coverage

blib/lib/SVN/Hook/Script.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch			n/a
condition	0	3	0.0
subroutine	2	3	66.6
pod	0	1	0.0
total	8	19	42.1

package SVN::Hook::Script;

use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(hook enabled path));

use Path::Class;

# returns an array of SVN::Hook::Script objects
sub load_from_dir {
    my $class = shift;
    my $dir   = shift;
    my $hook  = shift;

    return map {
        SVN::Hook::Script->new(
            {   hook    => $hook,
                path    => Path::Class::File->new($_),
                enabled => (!m/-$/ && -x $_ )
            })
        } grep { -f $_ } glob( "$dir/*" );
}

1;