File Coverage

blib/lib/Perlanet/Entry.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


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