Hello Monks,

I am reaching out to those of you who have experience with Moose and MooseX-Declare.

I have created an Abstract class and it works fine, I just want to know if there is a better way to do it, more specifically, the part where we prevent instantiation of this Abstract class.

So, this is how I do it:

use MooseX::Declare;

class AbstractClass {
  
  sub BUILD {
    
    my $self = shift;
    
    # This is the mechanism that prevents instantiation
    if ( ref($self) eq __PACKAGE__ ) {
      
      # throw exception here
      
    }
  }
  
  # other methods go here
  
}
[download]

Anyone knows a better way to do it? Should I expect problems from doing this?

Thank you!