Server IP : 92.204.138.22 / Your IP : 3.139.233.17 Web Server : Apache System : Linux ns1009439.ip-92-204-138.us 4.18.0-553.8.1.el8_10.x86_64 #1 SMP Tue Jul 2 07:26:33 EDT 2024 x86_64 User : internationaljou ( 1019) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /home/internationaljou/public_html/admin/js/BROKY_ADMIN/alfasymlink/root/usr/share/doc/perl-Try-Tiny/t/ |
Upload File : |
use strict; use warnings; use Test::More tests => 8; use Try::Tiny; sub _eval { local $@; local $Test::Builder::Level = $Test::Builder::Level + 2; return ( scalar(eval { $_[0]->(); 1 }), $@ ); } sub throws_ok (&$$) { my ( $code, $regex, $desc ) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1; my ( $ok, $error ) = _eval($code); if ( $ok ) { fail($desc); } else { like($error || '', $regex, $desc ); } } throws_ok { try { 1 }; catch { 2 }; } qr/\QUseless bare catch()/, 'Bare catch() detected'; throws_ok { try { 1 }; finally { 2 }; } qr/\QUseless bare finally()/, 'Bare finally() detected'; throws_ok { try { 1 }; catch { 2 } finally { 2 }; } qr/\QUseless bare catch()/, 'Bare catch()/finally() detected'; throws_ok { try { 1 }; finally { 2 } catch { 2 }; } qr/\QUseless bare finally()/, 'Bare finally()/catch() detected'; throws_ok { try { 1 } catch { 2 } catch { 3 } finally { 4 } finally { 5 } } qr/\QA try() may not be followed by multiple catch() blocks/, 'Multi-catch detected'; throws_ok { try { 1 } catch { 2 } do { 2 } } qr/\Qtry() encountered an unexpected argument (2) - perhaps a missing semi-colon before or at/, 'Unterminated try detected'; sub foo { try { 0 }; catch { 2 } } throws_ok { if (foo()) { # ... } } qr/\QUseless bare catch/, 'Bare catch at the end of a function call'; sub bar { try { 0 }; finally { 2 } } throws_ok { if (bar()) { # ... } } qr/\QUseless bare finally/, 'Bare finally at the end of a function call';