File Coverage

blib/lib/Qudo/HookLoader.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	25	48.0

package Qudo::HookLoader;
use strict;
use warnings;
use UNIVERSAL::require;

sub register_hooks {
    my ($class, $to_class, $hook_modules) = @_;

    for my $module (@$hook_modules) {
        $module->require or Carp::croak $@;
        $module->load($to_class);
    }
}

sub unregister_hooks {
    my ($class, $from_class, $hook_modules) = @_;

    for my $module (@$hook_modules) {
        $module->unload($from_class);
    }
}

1;