File Coverage

blib/lib/Perlanet/Entry.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Perlanet::Entry;
2              
3 6     6   25 use strict;
  6         7  
  6         166  
4 6     6   19 use warnings;
  6         10  
  6         157  
5              
6 6     6   69 use 5.6.0;
  6         15  
7             our $VERSION = '0.58';
8              
9 6     6   23 use Moose;
  6         5  
  6         82  
10              
11             =head1 NAME
12              
13             Perlanet::Entry - represents an entry in a feed
14              
15             =head1 DESCRIPTION
16              
17             This is a wrapper around L<XML::Feed::Entry> with support for linking back to
18             the feed from the entry
19              
20             =cut
21              
22             has '_entry' => (
23             isa => 'XML::Feed::Entry',
24             is => 'ro',
25             required => 1,
26             handles => [qw( title link issued body summary content modified author )]
27             );
28              
29             has 'feed' => (
30             isa => 'Perlanet::Feed',
31             is => 'ro',
32             required => 1
33             );
34              
35 6     6   28720 no Moose;
  6         7  
  6         24  
36             __PACKAGE__->meta->make_immutable;
37             1;