package YourApp::Schema::Result::Product; # .. # DBIC code # .. use Measure::Everything qw($stats); sub view { my $self = shift; # I wonder how often each product is viewed? }