Perl Test Track 11日目です
こんばんは、家で凍死しそうなので、そろそろセラムヒートでも買おうと思っているdannです
Test Track 11日目です！ ikasam_a さんから「Jenkinsの話を書いて！」と言われたので、ACDD(Advent Calendar Driven Development) という手法で作った、メトリクス測定ツールとJenkinsへのインテグレーションについての話をします。
大きなチームで開発する時に、数百行の謎メソッドができたりとかあったりしますよね（涙）
僕は、Working Effectively With Legacy CodeやClean Codeを読んでいること前提にチームの人がコードを書いていると思っていたら、あれ？という場面があったりします。こういうときは、品質の問題を測定できるようにすると、数値レベルで具体的にした共通認識ができ、レビューが捗ります。
メトリクスを測定するなんていうと、用語の定義が間違ってる喝！とSoftware Engineeringの専門家に怒られちゃうわけですが、そこは気にせずメトリクスを測定って言うことにします。
今回測定したのは、以下の二つのメトリクスです。
メソッドの行数は、そのまんまですね。Cyclomatic Complexityは10を超えていると複雑すぎなので、分割を検討した方が良いというのが一つ一般的な指標になってます。
これらのメトリクスは、Perl::Metrics::Simpleというモジュールで簡単に取得できます。ではこれをJenkinsに統合しましょう。
これらのメトリクスの測定結果をどのようにJenkinsに統合するかです。今まで、自分の日記のJenkinsのエントリを読んでもらっている人は、勘のいい方は気づいてるんじゃないかと思うんですが、Javaのツールにマッピングすればいいんですね。
この分野は、静的言語でもあることから、Javaは周辺ツールがとても充実しており、今回はそのうちの一つであるCheckStyleのXMLに測定結果をマッピングしてみました。これにより、チェック結果のViewをそのまま流用できるわけです。
作ってみたマッピングするツールは以下の通りです。
#!/usr/bin/perl
use strict;
use warnings;
use Perl::Metrics::Simple;
use Text::MicroTemplate::DataSection;
use Text::Xslate;
#====================================================
# Config
#====================================================
our $MAX_CYCLOMATIC_COMPLEXITY = 10;
our $MAX_SUB_LENGTH = 50;
#====================================================
# Logic
#====================================================
main();
exit;
sub main {
my $check_result = check_style( ¥@ARGV );
make_report($check_result);
}
sub check_style {
my $paths = shift;
my $analzyer = Perl::Metrics::Simple->new;
my $analysis = $analzyer->analyze_files(@ARGV);
}
sub make_report {
my $check_result = shift;
my $checkstyle_xml = make_check_style_report($check_result);
write_file($checkstyle_xml);
}
sub make_check_style_report {
my $check_result = shift;
my $tx = Text::Xslate->new(
path => [ Data::Section::Simple->new()->get_data_section(), ], );
my $sub_stats = convert_substats_to_file_unit($check_result);
my %vars = (
sub_stats => $sub_stats,
metric_threshold => {
max_sub_length=> $MAX_SUB_LENGTH,
max_cyclomatic_complexity => $MAX_CYCLOMATIC_COMPLEXITY,
}
);
my $report = $tx->render( 'checkstyle-result.tx', ¥%vars );
return $report;
}
sub convert_substats_to_file_unit {
my $check_result = shift;
my $sub_stats = {};
foreach my $sub (@{ $check_result->subs}) {
$sub_stats->{$sub->{path}} ||= [];
push @{$sub_stats->{$sub->{path}}}, $sub ;
}
return $sub_stats;
}
sub write_file {
my $report = shift;
my $io = IO::File->new( 'checkstyle-result.xml', 'w' );
$io->print($report);
$io->close;
}
__DATA__
@@ checkstyle-result.tx
<checkstyle version="5.1">
: for $sub_stats.keys() -> $file_path {
<file name="<: $file_path :>">
: for $sub_stats[$file_path] -> $sub_stat {
: next if !$sub_stat
: if $sub_stat.lines >= $metric_threshold.max_sub_length {
<error line="1" column="1" severity="error" message="'<: $sub_stat.name :>' method length is <: $sub_stat.lines :> lines." source="com.puppycrawl.tools.checkstyle.checks.sizes.MethodLengthCheck"/>
: } elsif $sub_stat.mccabe_complexity >= $metric_threshold.max_cyclomatic_complexity {
<error line="1" column="1" severity="error" message="'<: $sub_stat.name :>' cyclomatic complexity is <: $sub_stat.mccabe_complexity :>." source="com.puppycrawl.tools.checkstyle.checks.metrics.CyclomaticComplexityCheck"/>
: }
: }
</file>
: }
</checkstyle>
上記のスクリプトのconfigurationの設定を最初にします。
CCが10、sub lengthが50行という設定だと、以下のように書きます。
our $MAX_CYCLOMATIC_COMPLEXITY = 10; our $MAX_SUB_LENGTH = 50;
以下のようにスクリプトの引数にlibディレクトリを指定します。そうすると、workspaceにcheckstyle-result.xmlが生成されます。
checkstyle.pl lib
後は、Jenkinsにcheckstyle pluginをいれておけば、ビルド時に自動でcheckstyleのViewにメトリクスでの測定結果が表示されます。
以下のようにPerl::Metrics::Simple::Analysis::Fileを変更することでメソッドの行数を取得することが可能になります。上記のcheckstyle.plでは、line numberは1という固定値になってますが、以下の変更を加えてcheckstyle.plのテンプレートを変更すれば、行数のマッピングも出来ます。そうすることで、check_styleのDetailのレポートから直接ソースコードの街頭メソッドにジャンプすることができるようになります。
--- Perl/Metrics/Simple/Analysis/File.pm.orig 2011-12-10 13:49:45.000000000 +0900
+++ Perl/Metrics/Simple/Analysis/File.pm 2011-12-10 13:34:52.000000000 +0900
@@ -327,6 +327,7 @@
name => $sub->name,
lines => $sub_length,
mccabe_complexity => $self->measure_complexity($sub),
+ line_number => $sub->line_number,
};
}
return \@subs;
メトリクスの測定をCIに組み込むことの効果には以下のようなものがあります。
メトリクスの測定で、レビュー対象を早期に摘出するとコード品質をあげることが可能になります。早期に問題を見つけるのは、テストやビルドだけでなく、こういった静的解析による機械的なレビューによってもあげることが可能なわけです。
これらのメトリクスによる定量評価もCIに組み込むことでその価値を発揮します。性能だけでなく、品質もある一定線は定量評価が可能であり、人感じるのではなく、測定によって定量評価をすすめることで、改善効果を実感することができます。
CheckStyleのチェック項目は数多く存在しますが、Perl::Metrics::SimpleをベースにしてJava版と同じようにモジュール化をすることで、より高度なチェックも可能になります。興味のある方は是非トライしてみてください。
2003年頃からCruise Control -> Continuum -> Hudson (Jenkins) とCIシステムを使ってきたわけですが、当時はJava界隈ではよく使われてましたが、あまりPerlのプロジェクトでは使われていませんでした。今では、Jenkinsの素晴らしいQualityから、Perlのプロジェクトでも大分使われるようになってきていますね。遅筆ではありますが、今後もJava界隈で今までに培ったCIの使い方のノウハウを、Perlのプロジェクトでも活かす方法を書いていきたいところです。
では、Enjoy Jenkins!
次回は、tsucchi さんです！