File Coverage

blib/lib/API/Instagram/Tag.pm
Criterion Covered Total %
statement 12 12 100.0
branch 3 4 75.0
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package API::Instagram::Tag;
2              
3             # ABSTRACT: Instagram Tag Object
4              
5 15     15   90 use Moo;
  15         27  
  15         96  
6              
7             has name => ( is => 'ro', required => 1 );
8             has _data => ( is => 'rwp', lazy => 1, builder => 1, clearer => 1 );
9              
10             sub media_count {
11 2     2 1 1226 my $self = shift;
12 2 100       9 $self->_clear_data if shift;
13 2         404 $self->_data->{media_count}
14             }
15              
16              
17             sub recent_medias {
18 1     1 1 3 my $self = shift;
19 1         6 my $url = sprintf "tags/%s/media/recent", $self->name;
20 1 50       6 API::Instagram->instance->_medias( $url, { @_%2?():@_ } );
21             }
22              
23             sub _build__data {
24 2     2   398 my $self = shift;
25 2         12 my $url = sprintf "tags/%s", $self->name;
26 2         9 API::Instagram->instance->_get( $url );
27             }
28              
29             1;
30              
31             __END__