package # Hide from PAUSE TestApp::DBIC::ResultSet::User; use strict; use warnings; use base 'TestApp::DBIC::ResultSet'; sub find { my $self = shift @_; my $result = $self->next::method(@_); if($result) { if( $result->user_id == 104 || $result->user_id eq '104' ) { die 'BOO!'; } } return $result; } 1;