File Coverage

blib/lib/Data/Semantic/URI/ftp.pm
Criterion Covered Total %
statement 23 23 100.0
branch 4 4 100.0
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 35 35 100.0


line stmt bran cond sub pod time code
1 1     1   1721 use 5.008;
  1         6  
  1         46  
2 1     1   6 use strict;
  1         1  
  1         33  
3 1     1   6 use warnings;
  1         2  
  1         58  
4              
5             package Data::Semantic::URI::ftp;
6             our $VERSION = '1.100850';
7             # ABSTRACT: Semantic data class for ftp URIs
8 1     1   6 use parent qw(Data::Semantic::URI);
  1         2  
  1         7  
9             __PACKAGE__
10             ->mk_scalar_accessors(qw(type))
11             ->mk_boolean_accessors(qw(password));
12 1     1   88 use constant REGEXP_KEYS => qw(URI FTP);
  1         103  
  1         89  
13 1         151 use constant KEEP_KEYS => qw(
14             URI scheme username password host port abspath_full abspath_full_no_slash
15             abspath_full_no_slash_no_query type
16 1     1   7 );
  1         2  
17              
18             sub flags {
19 3     3 1 102499 my $self = shift;
20 3         21 my @flags = $self->SUPER::flags(@_);
21 3 100       65 push @flags => sprintf("-type => '%s'", $self->type) if $self->type;
22 3 100       48 push @flags => '-password' if $self->password;
23 3         27 @flags;
24             }
25             1;
26              
27              
28             __END__