Select Code to Download

my $foo = Foo->new(autothis => 1, delimthat => '::');
$foo->printme('text', align => 'vertical', font => 'Arial');
...
   my ($self, $text, %args) = @_;
   ...
};

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