my $foo = Foo->new( {autothis => 1, delimthat => '::'} );
$foo->printme('text', {align => 'vertical', font => 'Arial'});

package Foo;

sub new {
   my ($class, $args) = @_;
};

sub printme {
   my ($self, $text, $args) = @_;
   ...
};