Changeset 7382

Show
Ignore:
Timestamp:
03/03/08 01:02:38 (7 years ago)
Author:
woremacx
Message:

lang/perl/Data-ObjectDriver?-Loader: add require option like CDBI Loader

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Data-ObjectDriver-Loader/trunk/lib/Data/ObjectDriver/Loader/Base.pm

    r7354 r7382  
    1414        _datasource      => [ $args{dsn}, $args{user}, $args{password}, $args{options} ], 
    1515        _namespace       => $args{namespace}, 
     16        _require         => $args{require}, 
     17        _require_warn    => $args{require_warn}, 
     18        _require_die     => $args{require_die}, 
    1619        CLASSES          => {}, 
    1720    }, $class; 
     
    108111        eval $code; 
    109112        die "$code $@" if $@; 
     113 
     114        if ($self->{_require}) { 
     115            eval "require $class"; 
     116            if ($self->{_require_warn} && $@ && $@ !~ /Can't locate/) { 
     117                warn $@; 
     118            } elsif ($self->{_require_die} && $@ && $@ !~ /Can't locate/) { 
     119                die $@; 
     120            } 
     121        } 
    110122    } 
    111123}