package YourApp::Schema::Result::Product; # .. # DBIC code # .. use Measure::Everything qw($stats); sub view { my $self = shift; $stats->write( 'product_view', 1 ); }