File Coverage

blib/lib/Data/Semantic/URI/http.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	32	32	100.0

use 5.008;
use strict;
use warnings;

package Data::Semantic::URI::http;
our $VERSION = '1.100850';
# ABSTRACT: Semantic data class for http URIs
use parent qw(Data::Semantic::URI);
__PACKAGE__->mk_scalar_accessors(qw(scheme));
use constant REGEXP_KEYS => qw(URI HTTP);
use constant KEEP_KEYS   => qw(
  URI scheme host port abspath_full abspath_full_no_slash
  abspath_no_query query
);

sub flags {
    my $self  = shift;
    my @flags = $self->SUPER::flags(@_);
    push @flags => sprintf("-scheme => '%s'", $self->scheme) if $self->scheme;
    @flags;
}
1;


__END__