package IMPL::Code::Loader;
use strict;
use warnings;

my %packages;

sub Provide {
    my ($self,$package) = @_;
    
    my ($declaringPackage,$file) = caller();
    $packages{$package} = { declaringPackage => $declaringPackage, file => $file, evidence => 'provide' };
}

sub Require {
    my ($self,$package) = @_;
    
    return 1 if $packages{$package};
    
    if (my $file = $INC{$package}) {
        $packages{$package} = { file => $file, evidence => 'inc' };
        return 1;
    } 
    
    undef $@;
    
    if ( eval "require $package; 1;" and not $packages{$package}) {
        $packages{$package} = { file => $INC{$package}, evidence => 'inc' };
    };
            
    die $@ if $@ and not $!;
}

1;