Help for this page

Select Code to Download


  1. or download this
    my $account = Account->new;
$account->addToAccount( 10 );
is( $account->getCreditAmount, 10, 'added ten' );
  2. or download this
    { package NotASubclass;
  use Test::Exception;
  throws_ok { Account->new-> setCreditAmount( 42 ) } qr/is_protected/;
}