use strict;
use warnings;

package TestApp::Model::CanonTest;
use Jifty::DBI::Schema;

use TestApp::Record schema {
   column column_1 => type is 'text';
};

# we want to drop all non-word chars                                           

sub canonicalize_column_1 {
    my $self = shift;
    my $value = shift;

    $value =~ s/\W//g;
    return $value;
}

1;