File Coverage

blib/lib/MojoMojo/Schema/Result/PathPermissions.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package MojoMojo::Schema::Result::PathPermissions;

use strict;
use warnings;
use Data::Dumper;

use parent qw/MojoMojo::Schema::Base::Result/;

__PACKAGE__->load_components( "Core" );
__PACKAGE__->table("path_permissions");
__PACKAGE__->add_columns(
    "path",               { data_type => "VARCHAR", is_nullable => 0, size => 255 },
    "role",               { data_type => "INTEGER", is_nullable => 0, size => undef },
    "apply_to_subpages",  { data_type => "VARCHAR", is_nullable => 0, size => 3 },
    "create_allowed",     { data_type => "VARCHAR", is_nullable => 1, size => 3 },
    "delete_allowed",     { data_type => "VARCHAR", is_nullable => 1, size => 3 },
    "edit_allowed",       { data_type => "VARCHAR", is_nullable => 1, size => 3 },
    "view_allowed",       { data_type => "VARCHAR", is_nullable => 1, size => 3 },
    "attachment_allowed", { data_type => "VARCHAR", is_nullable => 1, size => 3 },
);
__PACKAGE__->set_primary_key( "path", "role", "apply_to_subpages" );
__PACKAGE__->belongs_to( "role", "MojoMojo::Schema::Result::Role", { id => "role" } );

=head1 NAME

MojoMojo::Schema::Result::PathPermissions - store path permissions

=head1 AUTHOR

Marcus Ramberg <[e-mail]>

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut


1;