File Coverage

blib/lib/Data/Semantic/URI/TestData/http.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1 1     1   1039 use 5.008;
  1         4  
  1         51  
2 1     1   6 use strict;
  1         2  
  1         39  
3 1     1   6 use warnings;
  1         1  
  1         89  
4              
5             package Data::Semantic::URI::TestData::http;
6             our $VERSION = '1.100850';
7             # ABSTRACT: Test data class for the http URI semantic data class
8 1     1   5 no warnings 'qw'; # Possible attempt to put comments in qw() list
  1         2  
  1         147  
9 1         117 use constant TESTDATA => (
10             { args => {},
11             valid => [
12             qw(
13             http://localhost/
14             http://use.perl.org/~hanekomu/journal?entry=12345
15             )
16             ],
17             invalid => [
18             qw(
19             news://localhost/
20             http://?123
21             https://localhost/
22             https://use.perl.org/~hanekomu/journal.txt#foobar
23             http://use.perl.org/~hanekomu/journal.txt#foobar
24             http://use.perl.org%2F~hanekomu/journal?entry=12345
25             )
26             ],
27             },
28             { args => { scheme => 'https?' },
29             valid => [
30             qw(
31             http://localhost/
32             http://use.perl.org/~hanekomu/journal?entry=12345
33             https://localhost/
34             https://use.perl.org/~hanekomu/journal?entry=12345
35             )
36             ],
37             invalid => [
38             qw(
39             news://localhost/
40             http://?123
41             http://use.perl.org/~hanekomu/journal.txt#foobar
42             https://use.perl.org/~hanekomu/journal.txt#foobar
43             http://use.perl.org%2F~hanekomu/journal?entry=12345
44             )
45             ],
46             },
47             { args => { scheme => 'https' },
48             valid => [
49             qw(
50             https://localhost/
51             https://use.perl.org/~hanekomu/journal?entry=12345
52             )
53             ],
54             invalid => [
55             qw(
56             http://localhost/
57             http://use.perl.org/~hanekomu/journal?entry=12345
58             http://use.perl.org/~hanekomu/journal.txt#foobar
59             https://use.perl.org/~hanekomu/journal.txt#foobar
60             http://use.perl.org%2F~hanekomu/journal?entry=12345
61             http://?123
62             news://localhost/
63             )
64             ],
65             },
66 1     1   6 );
  1         2  
67             1;
68              
69              
70             __END__