| line |
true |
false |
branch |
|
35
|
3 |
3 |
if ($arg =~ /\A([a-zA-Z0-9]+)\Z/) |
|
36
|
1 |
2 |
unless {e1 => 'ＮＨＫＥテレ１', e2 => 'ＮＨＫＥテレ２', e3 => 'ＮＨＫＥテレ３', e4 => 'ＮＨＫワンセグ２', g1 => 'ＮＨＫ総合１', g2 => 'ＮＨＫ総合２', n1 => 'ＮＨＫネットラジオ第１', n2 => 'ＮＨＫネットラジオ第２', n3 => 'ＮＨＫネットラジオＦＭ', netradio => 'ネットラジオ全て', r1 => 'ＮＨＫラジオ第１', r2 => 'ＮＨＫラジオ第２', r3 => 'ＮＨＫＦＭ', radio => 'ラジオ全て', s1 => 'ＮＨＫＢＳ１', s2 => 'ＮＨＫＢＳ１(１０２ｃｈ)', s3 => 'ＮＨＫＢＳプレミアム', s4 => 'ＮＨＫＢＳプレミアム(１０４ｃｈ)', tv => 'テレビ全て'}->{$1} |
|
47
|
2 |
31 |
if {e1 => 'ＮＨＫＥテレ１', e2 => 'ＮＨＫＥテレ２', e3 => 'ＮＨＫＥテレ３', e4 => 'ＮＨＫワンセグ２', g1 => 'ＮＨＫ総合１', g2 => 'ＮＨＫ総合２', n1 => 'ＮＨＫネットラジオ第１', n2 => 'ＮＨＫネットラジオ第２', n3 => 'ＮＨＫネットラジオＦＭ', netradio => 'ネットラジオ全て', r1 => 'ＮＨＫラジオ第１', r2 => 'ＮＨＫラジオ第２', r3 => 'ＮＨＫＦＭ', radio => 'ラジオ全て', s1 => 'ＮＨＫＢＳ１', s2 => 'ＮＨＫＢＳ１(１０２ｃｈ)', s3 => 'ＮＨＫＢＳプレミアム', s4 => 'ＮＨＫＢＳプレミアム(１０４ｃｈ)', tv => 'テレビ全て'}->{$key} eq $name |