use Third::Party::Class; # uses your constructor package Third::Party::Class { sub bypassPermissions { my ($self,$name,$value)=@_; $self->$name($value); } } my $object=Third::Party::Class->new(...); $object->bypassPermissions(secret => 42);