File Coverage

blib/lib/CPAN/Testers/Schema/Result/MetabaseUser.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package CPAN::Testers::Schema::Result::MetabaseUser;
2             our $VERSION = '0.024';
3             # ABSTRACT: Legacy user information from the Metabase
4              
5             #pod =head1 SYNOPSIS
6             #pod
7             #pod my $rs = $schema->resultset( 'MetabaseUser' );
8             #pod my ( $row ) = $rs->search({ resource => $resource })->all;
9             #pod
10             #pod say $row->fullname;
11             #pod say $row->email;
12             #pod
13             #pod =head1 DESCRIPTION
14             #pod
15             #pod This table stores the Metabase users so we can look up their name and e-mail
16             #pod when they send in reports.
17             #pod
18             #pod =head1 SEE ALSO
19             #pod
20             #pod L<CPAN::Testers::Schema>
21             #pod
22             #pod =cut
23              
24 13     13   21517 use CPAN::Testers::Schema::Base 'Result';
  13         37  
  13         126  
25             table 'metabase_user';
26              
27             #pod =attr id
28             #pod
29             #pod The ID of the row in the database.
30             #pod
31             #pod =cut
32              
33             primary_column id => {
34             data_type => 'int',
35             is_auto_increment => 1,
36             };
37              
38             #pod =attr resource
39             #pod
40             #pod The Metabase GUID of the user. We use this to look the user up. Will be
41             #pod a UUID prefixed with C<metabase:user:>.
42             #pod
43             #pod =cut
44              
45             unique_column resource => {
46             data_type => 'char',
47             size => 50,
48             is_nullable => 0,
49             };
50              
51             #pod =attr fullname
52             #pod
53             #pod The full name of the user.
54             #pod
55             #pod =cut
56              
57             column fullname => {
58             data_type => 'varchar',
59             is_nullable => 0,
60             };
61              
62             #pod =attr email
63             #pod
64             #pod The e-mail address of the user.
65             #pod
66             #pod =cut
67              
68             column email => {
69             data_type => 'varchar',
70             is_nullable => 1,
71             };
72              
73             1;
74              
75             __END__
76              
77             =pod
78              
79             =head1 NAME
80              
81             CPAN::Testers::Schema::Result::MetabaseUser - Legacy user information from the Metabase
82              
83             =head1 VERSION
84              
85             version 0.024
86              
87             =head1 SYNOPSIS
88              
89             my $rs = $schema->resultset( 'MetabaseUser' );
90             my ( $row ) = $rs->search({ resource => $resource })->all;
91              
92             say $row->fullname;
93             say $row->email;
94              
95             =head1 DESCRIPTION
96              
97             This table stores the Metabase users so we can look up their name and e-mail
98             when they send in reports.
99              
100             =head1 ATTRIBUTES
101              
102             =head2 id
103              
104             The ID of the row in the database.
105              
106             =head2 resource
107              
108             The Metabase GUID of the user. We use this to look the user up. Will be
109             a UUID prefixed with C<metabase:user:>.
110              
111             =head2 fullname
112              
113             The full name of the user.
114              
115             =head2 email
116              
117             The e-mail address of the user.
118              
119             =head1 SEE ALSO
120              
121             L<CPAN::Testers::Schema>
122              
123             =head1 AUTHORS
124              
125             =over 4
126              
127             =item *
128              
129             Oriol Soriano <oriolsoriano@gmail.com>
130              
131             =item *
132              
133             Doug Bell <preaction@cpan.org>
134              
135             =back
136              
137             =head1 COPYRIGHT AND LICENSE
138              
139             This software is copyright (c) 2018 by Oriol Soriano, Doug Bell.
140              
141             This is free software; you can redistribute it and/or modify it under
142             the same terms as the Perl 5 programming language system itself.
143              
144             =cut