Thank you, Dragonfly, I was not aware that super was a method that could be called as a free method. However, I could have seen it if more closely reading the docs.

For the record, here's what I changed about the constructor:

sub new() {
  my $raw = pop @_;
  my $self = super;

  $self->raw($raw);
  return $self;
}
[download]

Thank you
Bernhard