Perl5.9ã®æç¹ã§ã¯ï¼assersionsã¨-Aã³ãã³ãã©ã¤ã³ã¹ã¤ããã¨ããä»çµã¿ã§Cã®assert(3)ã®ãããªãã¨ãã§ããããã«ãªãã¯ãã ã£ããããããããï¼ãã®ã¡ã«ããºã ã¯Perl5.10ã«ã¯çµå±æ¡ç¨ãããªãã£ãã éçºä¸ã¯assert()ã欲ããï¼ãããï¼ãªãªã¼ã¹å¾ã®å®è¡æããã©ã¼ãã³ã¹ã¯è½ã¨ããããªãï¼ã¨ããã®ãAssertãèããã¨ãã®ã¸ã¬ã³ãã¨ããããã ããããªãªãã§ï¼CPANã®Capr::Assertã¯é¢æ°å¼ã³åºããå®å ¨ã«æ¶ãå»ããã¨ãã§ããã®ã§æªããªãæ¹æ³ã ã¨æãã use Carp::Assert; assert($x > 1) if DEBUG; DEBUGã¯Carp::Assertã®æä¾ããå®æ°é¢æ°ã§ï¼ãã®å¤ãå½ãªãã°ãã®ä¸æã¯ã³ã³ãã¤ã«æã«å®å ¨ã«åé¤ãããã $ PERL_NDEBUG=0 perl -MO=Deparse -MCarp::Assert \ >
{{#tags}}- {{label}}
{{/tags}}