1 package # hide from pause
2 DBICNGTest::Schema::ResultSet::Person;
5 extends 'DBICNGTest::Schema::ResultSet';
10 DBICNGTest::Schema::ResultSet:Person; Example Resultset
18 our $VERSION = '0.01';
25 See Tests for more example usage.
29 Resultset Methods for the Person Source
33 This class defines the following attributes.
37 a literal attribute for testing
41 has 'literal' => (is=>'ro', isa=>'Str', required=>1, lazy=>1, default=>'hi');
44 =head2 available_genders
46 A resultset of the genders people can have. Keep in mind this get's run once
47 only at the first compile, so it's only good for stuff that doesn't change
52 has 'available_genders' => (
54 isa=>'DBICNGTest::Schema::ResultSet',
61 ->resultset('Gender');
68 This module defines the following methods.
70 =head2 older_than($int)
72 Only people over a given age
78 my ($self, $age) = @_;
80 return $self->search({age=>{'>'=>$age}});
86 See L<DBIx::Class> for more information regarding authors.
90 You may distribute this code under the same terms as Perl itself.