ã³ã¼ãã«ãã¬ãã¸ã¨ããã®ã¯ãã½ã¼ã¹ã³ã¼ãã®ä½ï¼ ãå®è¡ããããã¨ããææ¨ã®ãã¨ã§ãããã¨ãã°ã以ä¸ã®ãããªã³ã¼ãããã£ããã sub is_devide_100 { my $value = shift; if ($value % 100 == 0) { return 1; } else { return 0; } } &is_divide_100(1); 㨠&is_divide_100(100); ãå¼ã¶ã¨ããã¹ã¦ã®ãã¹ãéãã®ã§ is_divide_100 ã®ã³ã¼ãã«ãã¬ãã¸ã¯100%ã«ãªãã¾ãã CPAN ã« Devel::Cover ã¨ããã¢ã¸ã¥ã¼ã«ãããã¾ãããã®ã¢ã¸ã¥ã¼ã«ã使ãã¨ãPerl ã®ã³ã¼ãã«ãã¬ãã¸ãè¨ãã¾ããCatalyst ã¢ããªã§ã³ã¼ãã«ãã¬ãã¸ãè¨ãã«ã¯ã以ä¸ã®ããã«ãã¾ãã $ sudo cpan Devel::Cover $ cd myapp/script
{{#tags}}- {{label}}
{{/tags}}