#!/usr/bin/perl

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

my $schema  = MySchema->connect('DBI:SQLite:dbname=../../Testdb','','');
$schema->storage->debug(1);

my @userroles = $schema->resultset('UserRole')->search->all;
for my $userrole ( @userroles ){
    print $userrole->UserID->Username, " .. ", $userrole->RoleID->Role, "\n";
    if( $userrole->UserID->Username eq 'testperson' ){
        $userrole->set_column( 'RoleID', 1 );
        $userrole->update;
    }
}