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 7     7   46 use strict;
  7         14  
  7         200  
4 7     7   31 use warnings;
  7         15  
  7         195  
5              
6 7     7   34 use Moose;
  7         15  
  7         57  
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 7     7   47204 no Moose;
  7         16  
  7         33  
33             __PACKAGE__->meta->make_immutable;
34             1;