The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Magpie::DBIC::Schema::Result::User;
use Moose;
use Moose::Util::TypeConstraints;
use MooseX::NonMoose;
use MooseX::MarkAsMethods autoclean => 1;
extends 'DBIx::Class::Core';

__PACKAGE__->table('users');

__PACKAGE__->add_columns(
    id => {
        data_type => 'int',
        is_auto_increment => 1,
    },
    name => {
        data_type => 'varchar',
        size => 50,
    },
    status => {
        data_type => 'varchar',
        size => 50,
    },
);

__PACKAGE__->set_primary_key('id');

sub TO_JSON {
    my $self = shift;
    return {
        name => $self->name,
        status => $self->status,
    };
}

1;