package MyApp::Schema::Result::Something; extends 'DBIx::Class::Core'; # ... use Log::Any qw($log); sub short_title { my $self = shift; $log->debug( 'generating short_title' ); return substr( $self->title, 0, 20 ); }