#!/usr/bin/perl
use strict;
use warnings;

use Check::Model;

my $schema = Check::Model->connect(
        'dbi:SQLite:dbname=checks', '', ''
);

my $check  = $schema->resultset('Check')->find( 1 );
my $status = $check->status->descr;
print "status: $status\n";  # prints: 'status: Outstanding'

$check->update( { status => 2 } );
$status = $check->status->descr;
print "status: $status\n";  # also prints: 'status: Outstanding'

$check = $schema->resultset( 'Check' )->find( 1 );
$status = $check->status->descr;
print "status: $status\n";  # prints: 'status: Cleared'