Branch Coverage

blib/lib/WWW/NHKProgram/API/Service.pm
Criterion Covered Total %
branch 6 6 100.0


line true false branch
35 3 3 if ($arg =~ /\A([a-zA-Z0-9]+)\Z/)
36 1 2 unless {e1 => 'NHKEテレ1', e2 => 'NHKEテレ2', e3 => 'NHKEテレ3', e4 => 'NHKワンセグ2', g1 => 'NHK総合1', g2 => 'NHK総合2', n1 => 'NHKネットラジオ第1', n2 => 'NHKネットラジオ第2', n3 => 'NHKネットラジオFM', netradio => 'ネットラジオ全て', r1 => 'NHKラジオ第1', r2 => 'NHKラジオ第2', r3 => 'NHKFM', radio => 'ラジオ全て', s1 => 'NHKBS1', s2 => 'NHKBS1(102ch)', s3 => 'NHKBSプレミアム', s4 => 'NHKBSプレミアム(104ch)', tv => 'テレビ全て'}->{$1}
47 2 31 if {e1 => 'NHKEテレ1', e2 => 'NHKEテレ2', e3 => 'NHKEテレ3', e4 => 'NHKワンセグ2', g1 => 'NHK総合1', g2 => 'NHK総合2', n1 => 'NHKネットラジオ第1', n2 => 'NHKネットラジオ第2', n3 => 'NHKネットラジオFM', netradio => 'ネットラジオ全て', r1 => 'NHKラジオ第1', r2 => 'NHKラジオ第2', r3 => 'NHKFM', radio => 'ラジオ全て', s1 => 'NHKBS1', s2 => 'NHKBS1(102ch)', s3 => 'NHKBSプレミアム', s4 => 'NHKBSプレミアム(104ch)', tv => 'テレビ全て'}->{$key} eq $name