my $object = Foo->new('admin');


##</code><code>##

sub change_config
{
  my $self = shift();
  return unless $self->{status} ne 'admin';
  ...
}