Re: SUPER delegation fails because class name getting munged (somehow?)

in reply to SUPER delegation fails because class name getting munged (somehow?)

You can try

sub new {
      my $class = shift;
      $class = ref($class) if ref($class);
      my $self = $class->SUPER::new(); # <--- randomly fails
      ...
      return $self;
    }
[download]

Comment on Re: SUPER delegation fails because class name getting munged (somehow?) Download Code

Replies are listed 'Best First'.
Re^2: SUPER delegation fails because class name getting munged (somehow?) by Anonymous Monk on Feb 24, 2011 at 04:19 UTC
`__PACKAGE__->SUPER::new();` [download]	[reply] [d/l]

In Section Seekers of Perl Wisdom