view release on metacpan or  search on metacpan

t/lib/Schema1.pm  view on Meta::CPAN

package Schema1;
use Modern::Perl;
use base 'DBIx::Class::Schema';
__PACKAGE__->load_namespaces;
sub deploy {
    my $self = shift;
    $self->next::method(@_);
    
    $self->resultset('User')->populate(
        [
            [ 'id', 'username', 'password', 'name', 'email' ],
            [ 1, 'dave', 'beer',       'David Precious', 'dave@example.com' ],
            [ 2, 'bob',  'cider',      'Bob Smith',      'bob@example.com' ],
            [ 3, 'mark', 'wantscider', 'Update here',    'mark@example.com' ],
        ]
    );

    $self->resultset('Role')->populate(
        [
            [ 'id', 'role' ],
            [ 1,    'BeerDrinker' ],
            [ 2,    'Motorcyclist' ],
            [ 3,    'CiderDrinker' ],
        ]
    );

    $self->resultset('UserRole')
      ->populate( [ [ 'user_id', 'role_id' ], [ 1, 1 ], [ 1, 2 ], [ 2, 3 ], ] );
}

1;