¿¹¿Ü :: Died. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Piotr Roszatycki
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dexter/MooseX-GlobRef-Object-0.02/lib/MooseX/GlobRef/Object.pm
¿¹¿Ü :: Died. ű×
¿¹¿Ü :: Died. ¼³¸í
°£´ÜÇÑ ´ÙÀ̸¦ ½ÇÁ¦ ¿¹¿Ü °´Ã¼·Î º¯È¯ÇϽʽÿÀ ¿¹¿Ü :: Died´Â ´Ü¼øÇÑ ´ÙÀ̸¦ ½ÇÁ¦ ¿¹¿Ü °´Ã¼·Î º¯È¯ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ¿¹¿Ü :: ±âº» Pragma ¿¹¿Ü :: ±âº» '¿¹¿Ü :: Deged'¸¦ »ç¿ëÇÏ¿©·Îµå ÇÒ ¼ö ÀÖ½À´Ï´Ù. eval {open $ f, "x", "bad_open_mode"}; ¿¹¿Ü :: DED-> THOW (¸Þ½ÃÁö => "¿ ¼ö ¾ø½À´Ï´Ù") $ @; eval {die "bum! "}; if ($ @) {MY $ e = $ e-> $ e-> ´øÁö±â. {ko die "ºÕ! "} Àμâ ref $ @; #"exception :: print $ @ -> eval_error; # "ºÕ!"# "ºÕ!"´Â ·ÎÄà ¹üÀ§¿¡¼¸¸ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù ¿¹¿Ü :: »ç¸Á; {·ÎÄà $ sig {__ die__} = ¿¹¿Ü :: die__; eval {die "boom!";} print ref $ @; # "¿¹¿Ü :: Died"Print $ @ -> eval_error; # "ºÕ!"} eval {die "boom";} Àμâ ref $ @;ÀÌ Å¬·¡½º´Â Ç¥ÁØ ¿¹¿Ü :: ±âº»À» È®ÀåÇÏ°í EVALÀÇ ¿À·ù¸¦ ½ÇÁ¦ ¿¹¿Ü °´Ã¼·Î º¯È¯ÇÕ´Ï´Ù. EVALÀÇ ¿À·ù ¸Þ½ÃÁö´Â eval_error ¼Ó¼º¿¡ ÀúÀåµË´Ï´Ù. ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¡¤ Perl.
¿¹¿Ü :: Died. °ü·Ã ¼ÒÇÁÆ®¿þ¾î