lib/DBIx/Class/AccessorGroup.pm

   1 package DBIx::Class::AccessorGroup;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/Class::Accessor::Grouped/;
   7
   8 our %successfully_loaded_components;
   9
  10 sub get_component_class {
  11   my $class = $_[0]->get_inherited($_[1]);
  12   if (defined $class and ! $successfully_loaded_components{$class}) {
  13     $_[0]->ensure_class_loaded($class);
  14     $successfully_loaded_components{$class}++; # only increment if the load succeeded
  15   }
  16   $class;
  17 };
  18
  19 sub set_component_class {
  20   shift->set_inherited(@_);
  21 }
  22
  23 1;
  24
  25 =head1 NAME
  26
  27 DBIx::Class::AccessorGroup - See Class::Accessor::Grouped
  28
  29 =head1 SYNOPSIS
  30
  31 =head1 DESCRIPTION
  32
  33 This class now exists in its own right on CPAN as Class::Accessor::Grouped
  34
  35 =head1 AUTHORS
  36
  37 Matt S. Trout <mst@shadowcatsystems.co.uk>
  38
  39 =head1 LICENSE
  40
  41 You may distribute this code under the same terms as Perl itself.
  42
  43 =cut
  44