package Text::MicroMason::Benchmarking; use Time::HiRes 'time'; BEGIN { push @MIXIN, "#line ".__LINE__.' "'.__FILE__.'"', "", <<'/' } sub compile { my $self = shift; my $time = time(); my $result = $self->SUPER::compile(@_); $self->show_results( $time, time() ); return $result; } / sub show_results { my ( $self, $start, $end ) = @_; warn "Compilation took " . ( $start - $stop ) . " seconds"; } 1;