6 use Test::More tests => 8;
12 local $Test::Builder::Level = $Test::Builder::Level + 2;
13 return ( scalar(eval { $_[0]->(); 1 }), $@ );
17 my ( $code, $regex, $desc ) = @_;
18 local $Test::Builder::Level = $Test::Builder::Level + 1;
20 my ( $ok, $error ) = _eval($code);
25 like($error || '', $regex, $desc );
30 try { 1 }; catch { 2 };
31 } qr/\QUseless bare catch()/, 'Bare catch() detected';
34 try { 1 }; finally { 2 };
35 } qr/\QUseless bare finally()/, 'Bare finally() detected';
38 try { 1 }; catch { 2 } finally { 2 };
39 } qr/\QUseless bare catch()/, 'Bare catch()/finally() detected';
42 try { 1 }; finally { 2 } catch { 2 };
43 } qr/\QUseless bare finally()/, 'Bare finally()/catch() detected';
47 try { 1 } catch { 2 } catch { 3 } finally { 4 } finally { 5 }
48 } qr/\QA try() may not be followed by multiple catch() blocks/, 'Multi-catch detected';
54 } qr/\Qtry() encountered an unexpected argument (2) - perhaps a missing semi-colon before or at/,
55 'Unterminated try detected';
58 try { 0 }; catch { 2 }
65 } qr/\QUseless bare catch/,
66 'Bare catch at the end of a function call';
69 try { 0 }; finally { 2 }
76 } qr/\QUseless bare finally/,
77 'Bare finally at the end of a function call';