Select Code to Download

sub server {
    my $self = shift;
    ...
}

my $payer = Business::OnlinePayment->new();
set_defaults($payer);

sub Business::OnlinePayment::set_defaults {
  ... your code here ...
}

my $payer = Business::OnlinePayment->new();
$payer->set_defaults();