view release on metacpan or  search on metacpan

lib/Metabase/Web/Model/Metabase.pm  view on Meta::CPAN

64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
  my $class = delete $merged->{CLASS};
  eval "require $class; 1" or die "couldn't load Model::Metabase class: $@";
  my $obj = $class->new($merged);
}
 
sub COMPONENT {
  my ($class, $c, $user_config) = @_;
 
  my $config = Catalyst::Utils::merge_hashes($default_config, $user_config);
 
  my $self = bless {} => $class;
   
  my $fact_classes = $config->{fact_classes};
  Carp::croak "no fact_classes supplied to $class configuration"
    unless $fact_classes and @$fact_classes;
 
  # XXX why are we loading classes here?  why not leave to gateway instead?
  # -- dagolden, 2009-03-31
  for my $fact_class (@$fact_classes) {
    Carp::croak "invalid fact class: $fact_class" unless _CLASS($fact_class);
    eval "require $fact_class; 1" or die "couldn't load fact class: $@";