# Always remember to do all digits for the version even if they're 0
# i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports
# brain damage and presumably various other packaging systems too
-our $VERSION = '0.05001';
+our $VERSION = '0.05002';
__PACKAGE__->mk_group_accessors('inherited', qw/
_loader_args
my $self = shift;
my %args = (ref $_[0] eq 'HASH') ? %{$_[0]} : @_;
- $self->_validate_loader_options(\%args);
$self->_loader_args(\%args);
$self;
}
-sub _validate_loader_options {
- my $self = shift;
- my $args = shift;
-
- my @class_keys = qw(
- schema_base_class result_base_class additional_base_classes
- left_base_classes additional_classes components resultset_components
- );
- foreach my $k ( grep { exists $args->{$_} } @class_keys ) {
- my @classes = ref( $args->{$k} ) eq 'ARRAY' ? @{ $args->{$k} } : $args->{$k};
- foreach my $c (@classes) {
-
- # components default to being under the DBIx::Class namespace unless they
- # are preceeded with a '+'
- if ( $k =~ m/components$/ && $c !~ s/^\+// ) {
- $c = 'DBIx::Class::' . $c;
- }
-
- # 1 == installed, 0 == not installed, undef == invalid classname
- my $installed = Class::Inspector->installed($c);
- if ( defined($installed) ) {
- if ( $installed == 0 ) {
- croak qq/$c, as specified in the loader option "$k", is not installed/;
- }
- } else {
- croak qq/$c, as specified in the loader option "$k", is an invalid class name/;
- }
- }
- }
-
- return;
-}
-
sub _invoke_loader {
my $self = shift;
my $class = ref $self || $self;
bphillips: Brian Phillips <bphillips@cpan.org>
+schwern: Michael G. Schwern <mschwern@cpan.org>
+
+hobbs: Andrew Rodland <arodland@cpan.org>
+
... and lots of other folks. If we forgot you, please write the current
maintainer or RT.