my $self = $_[0];  # instead of $self = shift