File Coverage

blib/lib/CPAN/Testers/Fact/LegacyReport.pm
Criterion Covered Total %
statement 15 20 75.0
branch n/a
condition n/a
subroutine 5 8 62.5
pod 2 3 66.6
total 22 31 70.9


line stmt bran cond sub pod time code
1 1     1   2350 use 5.006;
  1         4  
  1         50  
2 1     1   6 use strict;
  1         3  
  1         38  
3 1     1   13 use warnings;
  1         1  
  1         188  
4              
5             package CPAN::Testers::Fact::LegacyReport;
6             # ABSTRACT: an email-style report for CPAN Testers
7             our $VERSION = '1.999002'; # VERSION
8              
9 1     1   5 use Carp ();
  1         133  
  1         32  
10              
11 1     1   12 use Metabase::Fact::Hash 0.016;
  1         32  
  1         197  
12             our @ISA = qw/Metabase::Fact::Hash/;
13              
14 0     0 0   sub required_keys { qw/grade osname osversion archname perl_version textreport/ }
15              
16             sub content_metadata {
17 0     0 1   my ($self) = @_;
18 0           my $content = $self->content;
19             return {
20 0           grade => $content->{grade},
21             osname => $content->{osname},
22             osversion => $content->{osversion},
23             archname => $content->{archname},
24             perl_version => $content->{perl_version},
25             };
26             }
27              
28             sub content_metadata_types {
29             return {
30 0     0 1   grade => '//str',
31             osname => '//str',
32             osversion => '//str',
33             archname => '//str',
34             perl_version => '//str',
35             };
36             }
37              
38             1;
39              
40             __END__