package MyCompany::Pages::TemplateConstants;
    
    use strict;
    use warnings;
    use base qw(MyCompany::Interfaces::Object); # don't ask, it's legacy code
    
    sub new {
      my $class = shift;
      my $self = $class->SUPER::new(); # <--- randomly fails
      ...
      return $self;
    }