my $self = ref $_[0] ? shift : undef;