Help for this page

Select Code to Download


  1. or download this
    package Check::Model;
use strict; use warnings;
...
__PACKAGE__->load_classes( qw/ Check Status / );

1;
  2. or download this
    package Check::Model::Check;

...
__PACKAGE__->set_primary_key( qw/ id / );

1;
  3. or download this
    #!/usr/bin/perl
use strict;
...
$check = $schema->resultset( 'Check' )->find( 1 );
$status = $check->status->descr;
print "status: $status\n";  # prints: 'status: Cleared'