Transports/Model/UserOnSource.pm

use strict;
use warnings;

package Transports::Model::UserOnSource::Schema;
use Jifty::DBI::Schema;

# Your column definitions go here.  See L<Jifty::DBI::Schema> for
# documentation about how to write column definitions.

column user_on =>
        refers_to Transports::Model::User,
        label is 'User',
        is mandatory;

column source =>
        refers_to Transports::Model::Source,
        label is 'Source system',
        is mandatory;

package Transports::Model::UserOnSource;
use base qw/Transports::Record/;
use Transports::Model::User;
use Transports::Model::Source;

# Your model-specific methods go here.


# FIXME cludge!
sub current_user_can {
        return 1;
}

1;

1	use strict;
2	use warnings;
3
4	package Transports::Model::UserOnSource::Schema;
5	use Jifty::DBI::Schema;
6
7	# Your column definitions go here. See L<Jifty::DBI::Schema> for
8	# documentation about how to write column definitions.
9
10	column user_on =>
11	refers_to Transports::Model::User,
12	label is 'User',
13	is mandatory;
14
15	column source =>
16	refers_to Transports::Model::Source,
17	label is 'Source system',
18	is mandatory;
19
20	package Transports::Model::UserOnSource;
21	use base qw/Transports::Record/;
22	use Transports::Model::User;
23	use Transports::Model::Source;
24
25	# Your model-specific methods go here.
26
27
28	# FIXME cludge!
29	sub current_user_can {
30	return 1;
31	}
32
33	1;
34