File Coverage

lib/Gentoo/Util/MetaCPAN/File.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1 2     2   615 use 5.006;
  2         6  
  2         63  
2 2     2   7 use strict;
  2         4  
  2         53  
3 2     2   6 use warnings;
  2         9  
  2         110  
4              
5             package Gentoo::Util::MetaCPAN::File;
6              
7             our $VERSION = '0.001000'; # TRIAL
8              
9             # ABSTRACT: Enhancements to MetaCPAN::File
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 2     2   584 use Moo qw( extends has around );
  2         18345  
  2         15  
14 2     2   2256 use Scalar::Util qw( blessed );
  2         3  
  2         377  
15             extends 'MetaCPAN::Client::File';
16              
17             has latest => ( is => ro =>, lazy => 1, default => sub { $_[0]->data->{latest} } );
18              
19             around _known_fields => sub {
20             my ( $orig, $self, @args ) = @_;
21             return [ ( 'latest', @{ $self->$orig(@args) } ) ];
22             };
23              
24 2     2   12 no Moo;
  2         3  
  2         10  
25              
26             1;
27              
28             __END__
29              
30             =pod
31              
32             =encoding UTF-8
33              
34             =head1 NAME
35              
36             Gentoo::Util::MetaCPAN::File - Enhancements to MetaCPAN::File
37              
38             =head1 VERSION
39              
40             version 0.001000
41              
42             =head1 AUTHOR
43              
44             Kent Fredric <kentnl@cpan.org>
45              
46             =head1 COPYRIGHT AND LICENSE
47              
48             This software is copyright (c) 2014 by Kent Fredric <kentfredric@gmail.com>.
49              
50             This is free software; you can redistribute it and/or modify it under
51             the same terms as the Perl 5 programming language system itself.
52              
53             =cut