Measure::Everything - Log::Any for Stats
sub buy { my $self = shift; $stats->write( 'product_sell', { count => 1, price => $self->price, }, { id => $self->id, category => $self->category } ); }
price
allows me to later get the total sum of money spent in a given time interval.