view release on metacpan or  search on metacpan

lib/Prophet/App.pm  view on Meta::CPAN

}

sub _require {
    my $self  = shift;
    my %args  = ( module => undef, quiet => undef, @_ );
    my $class = $args{'module'};

    # Quick hack to silence warnings.
    # Maybe some dependencies were lost.
    unless ($class) {
        warn sprintf( "no class was given at %s line %d\n", (caller)[ 1, 2 ] );
        return 0;
    }

    return 1 if $self->already_required($class);

    # .pm might already be there in a weird interaction in Module::Pluggable
    my $file = $class;
    $file .= ".pm"
      unless $file =~ /\.pm$/;