| blib/lib/NewsExtractor/Constants.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 11 | 11 | 100.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 4 | 4 | 100.0 |
| pod | n/a | ||
| total | 15 | 15 | 100.0 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | use v5.18; | ||||||
| 2 | 3 | 3 | 30 | use utf8; | |||
| 3 | 9 | ||||||
| 3 | 3 | 3 | 14 | use warnings; | |||
| 3 | 5 | ||||||
| 3 | 14 | ||||||
| 4 | 3 | 3 | 65 | ||||
| 3 | 5 | ||||||
| 3 | 550 | ||||||
| 5 | our %RE; | ||||||
| 6 | our @EXPORT_OK = ( | ||||||
| 7 | '%RE', | ||||||
| 8 | 'NEWSPAPER_NAMES', | ||||||
| 9 | 'CATEGORY_NAMES' | ||||||
| 10 | ); | ||||||
| 11 | |||||||
| 12 | use constant { | ||||||
| 13 | NEWSPAPER_NAMES => [ | ||||||
| 14 | 3 | 523 | 'Anue鉅亨', | ||||
| 15 | 'ETtoday新聞雲', | ||||||
| 16 | 'ETtoday旅遊雲', | ||||||
| 17 | 'NOWnews 今日新聞', | ||||||
| 18 | 'PChome 新聞', | ||||||
| 19 | 'TSNA', | ||||||
| 20 | 'TVBS', | ||||||
| 21 | 'TVBS新聞網', | ||||||
| 22 | 'VOGUE', | ||||||
| 23 | 'beauty美人圈', | ||||||
| 24 | '一零一傳媒', | ||||||
| 25 | '三立新聞網 SETN.COM', | ||||||
| 26 | '三立新聞網', | ||||||
| 27 | '上報', | ||||||
| 28 | '中國時報', | ||||||
| 29 | '中央社 CNA', | ||||||
| 30 | '中央社', | ||||||
| 31 | '中央通訊社', | ||||||
| 32 | '中時電子報', | ||||||
| 33 | '中華日報新聞網', | ||||||
| 34 | '健康遠見', | ||||||
| 35 | '台灣好新聞 TaiwanHot.net', | ||||||
| 36 | '天下雜誌', | ||||||
| 37 | '女人迷Womany', | ||||||
| 38 | '妞新聞 niusnews', | ||||||
| 39 | '工商時報', | ||||||
| 40 | '數位台灣地方新聞', | ||||||
| 41 | '新頭殼 Newtalk', | ||||||
| 42 | '新頭殼', | ||||||
| 43 | '旺報', | ||||||
| 44 | '法新社', | ||||||
| 45 | '無綫新聞', | ||||||
| 46 | '聯合新聞網', | ||||||
| 47 | '自由娛樂', | ||||||
| 48 | '自由影音', | ||||||
| 49 | '自由時報電子報', | ||||||
| 50 | '自由財經', | ||||||
| 51 | '自由電子報', | ||||||
| 52 | '自立晚報', | ||||||
| 53 | '芋傳媒 TaroNews', | ||||||
| 54 | '華視新聞', | ||||||
| 55 | '蕃新聞', | ||||||
| 56 | '蘋果新聞網｜蘋果日報', | ||||||
| 57 | '蘋果日報', | ||||||
| 58 | '鉅亨網', | ||||||
| 59 | '鏡週刊', | ||||||
| 60 | '阿波羅網手機版', | ||||||
| 61 | '青年日報', | ||||||
| 62 | '風傳媒', | ||||||
| 63 | '食力 foodNEXT', | ||||||
| 64 | 'Storm.mg', | ||||||
| 65 | '國語日報', | ||||||
| 66 | '經濟日報', | ||||||
| 67 | '快點TV', | ||||||
| 68 | 'USTV 非凡電視台', | ||||||
| 69 | 'NOW健康', | ||||||
| 70 | 'Taiwan News', | ||||||
| 71 | '翻報', | ||||||
| 72 | '翻爆 - 翻報', | ||||||
| 73 | '澎湖時報', | ||||||
| 74 | 'ETtoday星光雲', | ||||||
| 75 | '台灣時報 | 電子報', | ||||||
| 76 | '大紀元', | ||||||
| 77 | '大纪元', | ||||||
| 78 | 'Taipei Times', | ||||||
| 79 | '台視新聞', | ||||||
| 80 | 'The News Lens 關鍵評論網', | ||||||
| 81 | '立場新聞', | ||||||
| 82 | '農傳媒', | ||||||
| 83 | '報導者 The Reporter', | ||||||
| 84 | '眾新聞', | ||||||
| 85 | '中華日報', | ||||||
| 86 | '中華新聞雲', | ||||||
| 87 | '中視新聞', | ||||||
| 88 | '日經中文網', | ||||||
| 89 | 'Rti 中央廣播電臺', | ||||||
| 90 | ], | ||||||
| 91 | |||||||
| 92 | CATEGORY_NAMES => [ | ||||||
| 93 | '自由評論網', | ||||||
| 94 | '兩岸', | ||||||
| 95 | '台灣政經', | ||||||
| 96 | '台股新聞', | ||||||
| 97 | '台股新聞', | ||||||
| 98 | '國際', | ||||||
| 99 | '國際政經', | ||||||
| 100 | '地方', | ||||||
| 101 | '娛樂', | ||||||
| 102 | '政治', | ||||||
| 103 | '生活', | ||||||
| 104 | '生活發現', | ||||||
| 105 | '產經', | ||||||
| 106 | '社會', | ||||||
| 107 | '社會新聞', | ||||||
| 108 | '科技', | ||||||
| 109 | '美股', | ||||||
| 110 | '美股', | ||||||
| 111 | '軍視界', | ||||||
| 112 | '運動', | ||||||
| 113 | '重點新聞', | ||||||
| 114 | '雜誌', | ||||||
| 115 | '社論', | ||||||
| 116 | '立場報道', | ||||||
| 117 | '苗中彰投雲', | ||||||
| 118 | '旅遊頻道', | ||||||
| 119 | '文化+', | ||||||
| 120 | ], | ||||||
| 121 | }; | ||||||
| 122 | 3 | 3 | 19 | ||||
| 3 | 7 | ||||||
| 123 | $RE{newspaper_names} = '(?:' . join('|', map { qr($_) } @{ NEWSPAPER_NAMES() }) . ')'; | ||||||
| 124 | $RE{category_names} = '(?:' . join('|', map { qr($_) } @{ CATEGORY_NAMES() }) . ')'; | ||||||
| 125 | |||||||
| 126 | 1; |