sub new() { my $raw = pop @_; my $self = super; $self->raw($raw); return $self; }