'resourcetext' => bless( {
'name' => bless( {
'name' => 'resourceText',
'_groups' => {
'All' => 1
},
'mutator' => 'resourceText',
'placeholder' => '?',
'accessor' => 'resourceText'
}, 'Class::DBI::Column' ),
'_tag' => 'input',
'type' => 'text' # I'm expecting 'textarea'
}, 'HTML::Element' ),
####
# Right, have some of this!
eval "package $class; Class::DBI::Plugin::Type->import()";
my $type = $class->column_type($field);
return $self->_to_textarea($field)
if $type
and $type =~ /^(TEXT|BLOB)$/i;
return $self->_to_textfield($field);
####
print My::ClassName->column_type('resourceText'), $/;
####
#if ($caller->isa("Class::DBI::mysql") and $caller->can("column_type")) {
# return; # My work here is done
#}