t/lib/DBICNGTest/Schema/ResultSet.pm

   1 package # hide from PAUSE
   2  DBICNGTest::Schema::ResultSet;
   3
   4     use Moose;
   5     extends 'DBIx::Class::ResultSet', 'Moose::Object';
   6
   7 =head1 NAME
   8
   9 DBICNGTest::Schema::ResultSet; A base ResultSet Class
  10
  11 =head1 SYNOPSIS
  12
  13     package DBICNGTest::Schema::ResultSet::Member;
  14
  15     use Moose;
  16     extends 'DBICNGTest::Schema::ResultSet';
  17
  18     ## Rest of the class definition.
  19
  20 =head1 DESCRIPTION
  21
  22 All ResultSet classes will inherit from this.  This provides some base function
  23 for all your resultsets and it is also the default resultset if you don't
  24 bother to declare a custom resultset in the resultset namespace
  25
  26 =head1 PACKAGE METHODS
  27
  28 The following is a list of package methods declared with this class.
  29
  30 =head1 ATTRIBUTES
  31
  32 This class defines the following attributes.
  33
  34 =head1 METHODS
  35
  36 This module declares the following methods
  37
  38 =head2 new
  39
  40 overload new to make sure we get a good meta object and that the attributes all
  41 get properly setup.  This is done so that our instances properly get a L<Moose>
  42 meta class.
  43
  44 =cut
  45
  46 sub new
  47 {
  48     my $class = shift @_;
  49     my $obj = $class->SUPER::new(@_);
  50
  51     return $class->meta->new_object(
  52         __INSTANCE__ => $obj, @_
  53     );
  54 }
  55
  56
  57 =head1 AUTHORS
  58
  59 See L<DBIx::Class> for more information regarding authors.
  60
  61 =head1 LICENSE
  62
  63 You may distribute this code under the same terms as Perl itself.
  64
  65 =cut
  66
  67
  68 1;