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