From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CLACO / Mango-0.01000_05 / lib / Mango / Schema / Tag.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

              
# $Id: /local/Mango/trunk/lib/Mango/Schema/Tag.pm 125 2007-04-14T02:52:20.839536Z claco  $
package Mango::Schema::Tag;
use strict;
use warnings;
BEGIN {
    use base qw/DBIx::Class/;
    use DateTime ();
};
__PACKAGE__->load_components(qw/
    +Handel::Components::DefaultValues
    +Handel::Components::Constraints
    +Handel::Components::Validation
    InflateColumn::DateTime
    Core
/);
__PACKAGE__->table('tag');
__PACKAGE__->source_name('Tags');
__PACKAGE__->add_columns(
    id => {
        data_type         => 'INT',
        is_auto_increment => 1,
        is_nullable       => 0,
        extras            => {unsigned => 1}
    },
    name => {
        data_type   => 'VARCHAR',
        size        => 25,
        is_nullable => 0
    },
    created => {
        data_type     => 'DATETIME',
        is_nullable   => 0
    },
    updated => {
        data_type     => 'DATETIME',
        is_nullable   => 0
    }
);
__PACKAGE__->set_primary_key('id');
__PACKAGE__->add_unique_constraint(
    tag_name => [qw/name/]
);
__PACKAGE__->has_many(
    map_product_tag => 'Mango::Schema::ProductTag',
    {'foreign.tag_id' => 'self.id'}
);
__PACKAGE__->many_to_many(products => 'map_product_tag', 'product');
__PACKAGE__->default_values({
    created => sub {DateTime->now},
    updated => sub {DateTime->now}
});
1;
__END__
=head1 NAME
Mango::Schema::Tag - DBIC schema class for Tags
=head1 SYNOPSIS
    use Mango::Schema;
    my $schema = Mango::Schema->connect;
    my $tags = $schema->resultset('Tags')->search;
=head1 DESCRIPTION
Mango::Schema::Tag is loaded by Mango::Schema to read/write tag data.
=head1 COLUMNS
=head2 id
Contains the primary key for each tag record.
    id => {
        data_type         => 'INT',
        is_auto_increment => 1,
        is_nullable       => 0,
        extras            => {unsigned => 1}
    },
=head2 name
Contains the tag name.
    name => {
        data_type   => 'VARCHAR',
        size        => 25,
        is_nullable => 0
    },
=head2 created
When the role record was created.
    created => {
        data_type   => 'DATETIME',
        is_nullable => 0
    },
=head2 updated
When the role record was updated.
    updated => {
        data_type   => 'DATETIME',
        is_nullable => 0
    }
=head1 AUTHOR
    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/