File Coverage

blib/lib/Mail/STS/STSRecord.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Mail::STS::STSRecord;
2              
3 2     2   1370 use Moose;
  2         493863  
  2         21  
4              
5             our $VERSION = '0.04'; # VERSION
6             # ABSTRACT: a STS DNS TXT record string
7              
8             has 'fields' => (
9             is => 'ro',
10             default => sub { [ 'v', 'id' ] },
11             );
12              
13             with 'Mail::STS::SSKV';
14              
15             has 'v' => (
16             is => 'rw',
17             isa => 'Str',
18             default => 'STSv1',
19             );
20              
21             has 'id' => (
22             is => 'rw',
23             isa => 'Str',
24             required => 1,
25             );
26              
27             1;
28              
29             __END__
30              
31             =pod
32              
33             =encoding UTF-8
34              
35             =head1 NAME
36              
37             Mail::STS::STSRecord - a STS DNS TXT record string
38              
39             =head1 VERSION
40              
41             version 0.04
42              
43             =head1 AUTHOR
44              
45             Markus Benning <ich@markusbenning.de>
46              
47             =head1 COPYRIGHT AND LICENSE
48              
49             This software is copyright (c) 2018 by Markus Benning <ich@markusbenning.de>.
50              
51             This is free software; you can redistribute it and/or modify it under
52             the same terms as the Perl 5 programming language system itself.
53              
54             =cut