The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

ASH / DBIx-Class-0.08099_02 / t / lib / DBICNGTest / Schema / Result / Person.pm 

            

              
1
2
3
4
5
6
7
—
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
—
36
37
38
39
40
41
42
43
44
45
46
47
48
49
—
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
—
98
99
100
101
102
103
104
105
106
107
—
108
109
110
111
112
113
114
115
116
117
118
119
—
120
121
122
123
124
125
126
127
128
129
130
—
131
132
133
134
135
136
137
138
139
140
141
—
142
143
144
145
146
147
148
149
150
151
—
152
153
154
155
156
157
158
159
160
161
—
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178

              
package #hide from pause
 DBICNGTest::Schema::Result::Person;
    use Moose;
    use DateTime;
    extends 'DBICNGTest::Schema::Result';
=head1 NAME
DBICNGTest::Schema::Result::Person; An example Person Class;
=head1 DESCRIPTION
Tests for this type of FK relationship
=head1 ATTRIBUTES
This class defines the following attributes.
=head2 created
attribute for the created column
=cut
has 'created' => (
    is=>'ro',
    isa=>'DateTime',
    required=>1,
    default=>sub {
        DateTime->now;
    },
);
=head1 PACKAGE METHODS
This module defines the following package methods
=head2 table
Name of the Physical table in the database
=cut
__PACKAGE__
    ->table('person');
=head2 add_columns
Add columns and meta information
=head3 person_id
Primary Key which is an auto generated autoinc
=head3 fk_gender_id
foreign key to the Gender table
=head3 name
Just an ordinary name
=head3 age
The person's age
head3 created
When the person was added to the database
=cut
__PACKAGE__
    ->add_columns(
        person_id => {
            data_type=>'integer',
        },
        fk_gender_id => {
            data_type=>'integer',
        },      
        name => {
            data_type=>'varchar',
            size=>32,
        },
        age => {
            data_type=>'integer',
            default_value=>25,
        },
        created => {
            data_type=>'datetime',
            default_value=>'date("now")',
        });
=head2 primary_key
Sets the Primary keys for this table
=cut
__PACKAGE__
    ->set_primary_key(qw/person_id/);
=head2 friendlist
Each Person might have a resultset of friendlist 
=cut
__PACKAGE__
    ->has_many( 
        friendlist => 'DBICNGTest::Schema::Result::FriendList',
        {'foreign.fk_person_id' => 'self.person_id'});
     
=head2 gender
This person's gender
=cut
__PACKAGE__
    ->belongs_to( gender => 'DBICNGTest::Schema::Result::Gender', { 
        'foreign.gender_id' => 'self.fk_gender_id' });
         
=head2 fanlist
A resultset of the people listing me as a friend (if any)
=cut
__PACKAGE__
    ->belongs_to( fanlist => 'DBICNGTest::Schema::Result::FriendList', { 
        'foreign.fk_friend_id' => 'self.person_id' });
=head2 friends
A resultset of Persons who are in my FriendList
=cut
__PACKAGE__
    ->many_to_many( friends => 'friendlist', 'friend' );
     
=head2 fans
A resultset of people that have me in their friendlist
=cut
__PACKAGE__
    ->many_to_many( fans => 'fanlist', 'befriender' );
=head1 METHODS
This module defines the following methods.
=head1 AUTHORS
See L<DBIx::Class> for more information regarding authors.
=head1 LICENSE
You may distribute this code under the same terms as Perl itself.
=cut
1;