File Coverage

blib/lib/Tweet/ToDelicious/Entity.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Tweet::ToDelicious::Entity;
2              
3 13     13   333034 use v5.14;
  13         51  
  13         453  
4 13     13   67 use warnings;
  13         23  
  13         324  
5 13     13   7183 use Tweet::ToDelicious::Entity::OnTweet;
  13         42  
  13         455  
6 13     13   7520 use Tweet::ToDelicious::Entity::OnEvent;
  13         30  
  13         1230  
7              
8             sub new {
9 2     2 0 2871 my $class = shift;
10 2         3 my $tweet = shift;
11 2 100       5 if ( exists $tweet->{event} ) {
12 1         25 return Tweet::ToDelicious::Entity::OnEvent->new($tweet);
13             }
14             else {
15 1         11 return Tweet::ToDelicious::Entity::OnTweet->new($tweet);
16             }
17             }
18              
19             1;