Select Code to Download

#!/usr/bin/perl

...
# we test if we can call setDebetAmount directly
throws_ok { $passief->setDebetAmount(0) } qr/setDebetAmount is protect
+ed/,
  "setDebetAmount is protected";

#!/usr/bin/perl

...
}
is( $setCredit, $two, "setCreditAmount returns 2" );
is( $setDebet, $one, "setDebetAmount returns 1" );