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

LSAUNDERS / DBIx-Class-0.08099_04 / t / lib / DBICNGTest / Schema / Result / FriendList.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

              
package #hide from pause
 DBICNGTest::Schema::Result::FriendList;
    use Moose;
    extends 'DBICNGTest::Schema::Result';
=head1 NAME
Zoomwit::tlib::DBIC::Schema::Result::FriendList; An example Friends Class;
=head1 VERSION
0.01
=cut
our $VERSION = '0.01';
=head1 DESCRIPTION
A Person can have zero or more friends
A Person can't be their own friend
A Person over 18 can't be friends with Persons under 18 and vis versa.
A Person can have friendships that are not mutual.
=head1 ATTRIBUTES
This class defines the following attributes.
=head1 PACKAGE METHODS
This module defines the following package methods
=head2 table
Name of the Physical table in the database
=cut
__PACKAGE__
    ->table('friend_list');
=head2 add_columns
Add columns and meta information
=head3 fk_person_id
ID of the person with friends
=head3 fk_friend_id
Who is the friend?
=cut
__PACKAGE__
    ->add_columns(
        fk_person_id => {
            data_type=>'integer',
        },
        fk_friend_id => {
            data_type=>'integer',
        },
);
         
=head2 primary_key
Sets the Primary keys for this table
=cut
__PACKAGE__
    ->set_primary_key(qw/fk_person_id fk_friend_id/);
     
=head2 befriender
The person that 'owns' the friendship (list)
=cut
__PACKAGE__
    ->belongs_to( befriender => 'DBICNGTest::Schema::Result::Person', {
        'foreign.person_id' => 'self.fk_person_id' });
=head2 friendee
The actual friend that befriender is listing
=cut
__PACKAGE__
    ->belongs_to( friendee => 'DBICNGTest::Schema::Result::Person', { 
        'foreign.person_id' => 'self.fk_friend_id' });
=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;