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   17 use strict;
  6         6  
  6         110  
4 6     6   18 use warnings;
  6         6  
  6         127  
5              
6 6     6   19 use Moose;
  6         6  
  6         49  
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   22229 no Moose;
  6         10  
  6         96  
33             __PACKAGE__->meta->make_immutable;
34             1;
35