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;