Select Code to Download

eval {
    $a->f1( ) 
};
ok($@, '... an exception has been thrown');
like($@, qr/\- parameter1 required/, '... and it is the correct except
+ion');

eval {
    $a->f1("paramter" ) 
};
ok(!$@, '... no exception has been thrown');