File Coverage

blib/lib/Test/DBIx/Class/Example/Schema/Result/Job.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 Test::DBIx::Class::Example::Schema::Result::Job; {
2 15     15   17899 use base 'Test::DBIx::Class::Example::Schema::Result';
  15         32  
  15         2518  
3              
4             __PACKAGE__->table('job');
5              
6             __PACKAGE__->add_columns(
7             job_id => {
8             data_type => 'varchar',
9             size => '36',
10             is_nullable => 0,
11             },
12             name => {
13             data_type => 'varchar',
14             size => '20',
15             is_nullable => 0,
16             },
17             description => {
18             data_type => 'varchar',
19             size => '100',
20             is_nullable => 0,
21             },
22             );
23              
24             __PACKAGE__->set_primary_key('job_id');
25             __PACKAGE__->uuid_columns('job_id');
26              
27             __PACKAGE__->has_many(
28             company_employee_rs => 'Test::DBIx::Class::Example::Schema::Result::Company::Employee',
29             { 'foreign.fk_job_id' => 'self.job_id'}
30             );
31              
32             __PACKAGE__->many_to_many(
33             companies => 'company_job_rs', 'company',
34             );
35              
36             __PACKAGE__->many_to_many(
37             employees => 'company_job_rs', 'employee',
38             );
39              
40             } 1
41              
42             __END__
43              
44             =head1 NAME
45              
46             Test::DBIx::Class::Example::Schema::Result::Job - A Job
47              
48             =head1 DESCRIPTION
49              
50             A job is something you gotta do.
51              
52             =head1 SEE ALSO
53              
54             The following modules or resources may be of interest.
55              
56             L<DBIx::Class>
57              
58             =head1 AUTHOR
59              
60             John Napiorkowski C<< <jjnapiork@cpan.org> >>
61              
62             =head1 COPYRIGHT & LICENSE
63              
64             Copyright 2009, John Napiorkowski C<< <jjnapiork@cpan.org> >>
65              
66             This program is free software; you can redistribute it and/or modify
67             it under the same terms as Perl itself.
68              
69             =cut