Transports/Model/Source.pm

use strict;
use warnings;

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

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

column name =>
        type is 'text',
        label is 'Source client',
        is mandatory,
        since '0.0.6';

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

# Your model-specific methods go here.

sub available_values {
        my $self = shift;
        return $self->column("name")->valid_values;
}

1;

1	dpavlin	1	use strict;
2			use warnings;
3
4			package Transports::Model::Source::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 name =>
11			type is 'text',
12			label is 'Source client',
13			is mandatory,
14			since '0.0.6';
15
16			package Transports::Model::Source;
17			use base qw/Transports::Record/;
18
19			# Your model-specific methods go here.
20
21			sub available_values {
22			my $self = shift;
23			return $self->column("name")->valid_values;
24			}
25
26			1;
27