Branch Coverage

blib/lib/Net/NicoVideo/URL.pm
Criterion Covered Total %
branch 78 86 90.7


line true false branch
15 0 50 unless my $url = shift()
16 4 46 if (do { $url =~ m[^(https?)://www\.nicovideo\.jp/watch/([-_0-9A-Za-z]+)] }) { }
2 44 elsif ($url =~ m[^(https?)://seiga\.nicovideo\.jp/seiga/([-_0-9A-Za-z]+)]) { }
6 38 elsif ($url =~ m[^(https?)://seiga\.nicovideo\.jp/watch/([-_0-9A-Za-z]+)]) { }
4 34 elsif ($url =~ m[^(https?)://live\.nicovideo\.jp/watch/([-_0-9A-Za-z]+)]) { }
2 32 elsif ($url =~ m[^(https?)://com\.nicovideo\.jp/community/([-_0-9A-Za-z]+)]) { }
2 30 elsif ($url =~ m[^(https?)://ch\.nicovideo\.jp/channel/([-_0-9A-Za-z]+)]) { }
2 28 elsif ($url =~ m[^(https?)://ch\.nicovideo\.jp/article/([-_0-9A-Za-z]+)]) { }
2 26 elsif ($url =~ m[^(https?)://chokuhan\.nicovideo\.jp/products/detail/(\d+)]) { }
12 14 elsif ($url =~ m[^(https?)://ichiba\.nicovideo\.jp/item/([-_0-9A-Za-z]+)]) { }
2 12 elsif ($url =~ m[^(https?)://app\.nicovideo\.jp/app/([-_0-9A-Za-z]+)]) { }
2 10 elsif ($url =~ m[^(https?)://jk\.nicovideo\.jp/watch/([-_0-9A-Za-z]+)]) { }
2 8 elsif ($url =~ m[^(https?)://www\.niconicommons\.jp/material/([-_0-9A-Za-z]+)]) { }
2 6 elsif ($url =~ m[^(https?)://news\.nicovideo\.jp/watch/([-_0-9A-Za-z]+)]) { }
2 4 elsif ($url =~ m[^(https?)://dic\.nicovideo\.jp/id/([-_0-9A-Za-z]+)]) { }
2 2 elsif ($url =~ m[^(https?)://www\.nicovideo\.jp/user/([-_0-9A-Za-z]+)]) { }
2 0 elsif ($url =~ m[^(https?)://www\.nicovideo\.jp/mylist/([-_0-9A-Za-z]+)]) { }
37 2 2 if ($id =~ /^lv/) { }
2 0 elsif ($id =~ /^co/) { }
106 0 50 unless my $url = shift()
112 8 42 if ($url =~ m[^(https?)://nico\.(?:ms|sc)/(\w+)/([-_0-9A-Za-z]+)]) { }
42 0 elsif ($url =~ m[^(https?)://nico\.(?:ms|sc)/((\w{2})[-_0-9A-Za-z]+)]) { }
122 8 42 if (defined $dir and defined $schem and defined $id) { }
42 0 elsif (defined $class and defined $schem and defined $id) { }
124 2 6 if (do { $dir eq 'l' }) { }
2 4 elsif ($dir eq 'dic') { }
2 2 elsif ($dir eq 'user') { }
2 0 elsif ($dir eq 'mylist') { }
154 4 38 if (do { $class eq 'so' unless $class eq 'sm' or $class eq 'nm' }) { }
2 36 elsif ($class eq 'im') { }
4 32 elsif ($class eq 'sg' or $class eq 'mg') { }
2 30 elsif ($class eq 'bk') { }
2 28 elsif ($class eq 'lv') { }
2 26 elsif ($class eq 'co') { }
2 24 elsif ($class eq 'ch') { }
2 22 elsif ($class eq 'ar') { }
2 20 elsif ($class eq 'nd' and $id =~ /^nd\d+$/) { }
12 8 elsif ($class eq 'az' or $class eq 'ys' or $class eq 'gg' or $class eq 'ga' or $class eq 'nd' or $class eq 'dw' or $class eq 'it' or $class eq 'ip') { }
2 6 elsif ($class eq 'ap') { }
2 4 elsif ($class eq 'jk') { }
2 2 elsif ($class eq 'nc') { }
2 0 elsif ($class eq 'nw') { }
159 38 4 unless $class eq 'sm' or $class eq 'nm'