File Coverage

blib/lib/Data/Semantic/URI/TestData/file.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

use 5.008;
use strict;
use warnings;

package Data::Semantic::URI::TestData::file;
our $VERSION = '1.100850';
# ABSTRACT: Test data class for the file URI semantic data class
no warnings 'qw';    # Possible attempt to put comments in qw() list
use constant TESTDATA => (
    {   args  => {},
        valid => [
            qw(
              file://localhost/
              file://use.perl.org/hanekomu/journal
              file:///Users/marcel/file.txt
              )
        ],
        invalid => [
            qw(
              news://localhost/
              file://?123
              http://use.perl.org/hanekomu/journal?entry=12345
              http://use.perl.org/~hanekomu/journal
              file:///Users/marcel/file.txt#foobar
              )
        ],
    },
);
1;


__END__