Select Code to Download

package Sub::Class;
use base 'Super::Class';

sub public_setCreditAmount { shift->setCreditAmount(@_) }

# in the test script
{
...
  is( $@, q{}, "setCreditAmount called as subclass" );
  is( $got, $expected, "setCreditAmount return value correct" );
}