File Coverage

blib/lib/Class/Value/URI/fax.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1 1     1   1864 use 5.008;
  1         6  
  1         40  
2 1     1   6 use strict;
  1         2  
  1         29  
3 1     1   59 use warnings;
  1         2  
  1         55  
4              
5             package Class::Value::URI::fax;
6             our $VERSION = '1.100840';
7             # ABSTRACT: Value class for fax URIs
8 1     1   6 use parent 'Class::Value::SemanticAdapter';
  1         1  
  1         7  
9             __PACKAGE__->mk_boolean_accessors(qw(nofuture));
10              
11             sub semantic_args {
12 67     67 1 147943 my $self = shift;
13 67         238 ($self->SUPER::semantic_args(@_), nofuture => $self->nofuture,);
14             }
15             1;
16              
17              
18             __END__