is(ref $brd3, 'B::RecDeparse', 'BRD::new called as a functions returns a B::RecDeparse object');
ok($brd3->isa('B::Deparse'), 'BRD is a BD');
-eval { $brd2 = new B::RecDeparse qw/a b c/ };
+eval { $brd2 = new B::RecDeparse qw<a b c> };
like($@, qr/Optional\s+arguments/, 'BRD::new gets parameters as key => value pairs');