File Coverage

blib/lib/CPAN/Testers/TailLog/Result.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 12 12 100.0
pod 8 9 88.8
total 37 38 97.3


line stmt bran cond sub pod time code
1 4     4   75 use 5.006; # our
  4         8  
2 4     4   12 use strict;
  4         5  
  4         77  
3 4     4   13 use warnings;
  4         5  
  4         724  
4              
5             package CPAN::Testers::TailLog::Result;
6              
7             our $VERSION = '0.001000';
8              
9             # ABSTRACT: A single log entry from metabase.cpantesters.org
10              
11             # AUTHORITY
12              
13 5000     5000 0 10101 sub new { bless $_[1], $_[0] }
14              
15 3     3 1 710 sub accepted { $_[0]->{accepted} }
16 3     3 1 1009 sub filename { $_[0]->{filename} }
17 3     3 1 749 sub grade { $_[0]->{grade} }
18 3     3 1 705 sub perl_version { $_[0]->{perl_version} }
19 3     3 1 710 sub platform { $_[0]->{platform} }
20 3     3 1 714 sub reporter { $_[0]->{reporter} }
21 3003     3003 1 173162 sub submitted { $_[0]->{submitted} }
22 3     3 1 697 sub uuid { $_[0]->{uuid} }
23              
24             1;
25              
26             =pod
27              
28             =encoding UTF-8
29              
30             =head1 NAME
31              
32             CPAN::Testers::TailLog::Result - A single log entry from
33             metabase.cpantesters.org
34              
35             =head1 DESCRIPTION
36              
37             All propteries in this object are verbatim strings from upstream, with unicode
38             text (not bytes) where relevant.
39              
40             =head1 METHODS
41              
42             =head2 accepted
43              
44             The time the report was accepted to C, verbatim.
45              
46             # {YYYY}-{MM}-{DD}T{HH}:{MM}:{SS}Z
47             my $time = $result->accepted
48              
49             =head2 filename
50              
51             The CPAN relative path to the filename the test report is for
52              
53             # {CPANAUTHOR}/{PATH}
54             my $text = $result->filename
55              
56             =head2 grade
57              
58             The status of the test report
59              
60             # pass|fail|na|unknown
61             my $grade = $result->grade
62              
63             =head2 perl_version
64              
65             The version of Perl the test ran on
66              
67             # perl-vX.YY.Z
68             my $pv = $result->perl_version
69              
70             =head2 platform
71              
72             The OS/Architecture the test ran on
73              
74             # eg: x86_64-gnukfreebsd
75             my $pf = $result->platform
76              
77             =head2 reporter
78              
79             The person who submitted the report
80              
81             # "AuthörName"
82             my $name = $result->reporter;
83              
84             =head2 submitted
85              
86             The submission time of the report
87              
88             # {YYYY}-{MM}-{DD}T{HH}:{MM}:{SS}Z
89             my $time = $result->submitted
90              
91             =head2 uuid
92              
93             The unique identifier of the report
94              
95             # {HEX(8)}-{HEX(4)}-{HEX(4)}-{HEX(4)}-{HEX(12)}
96             my $id = $result->uuid
97              
98             =head1 AUTHOR
99              
100             Kent Fredric
101              
102             =head1 LICENSE
103              
104             This software is copyright (c) 2016 by Kent Fredric.
105              
106             This is free software; you can redistribute it and/or modify it under the same
107             terms as the Perl 5 programming language system itself.
108