view release on metacpan or  search on metacpan

lib/qbit/Packages.pm  view on Meta::CPAN

=cut

sub require_class {
    my ($class) = @_;

    my $file_name = "$class.pm";
    $file_name =~ s/::/\//g;

    my $result;
    try {
        $result = require($file_name);
    }
    catch {
        throw $_[0];
    };

    return $result || throw Exception gettext('Cannot requre class "%s": %s', $class, fix_utf($@ || $!));
}

=head2 dynamic_loading