File Coverage

blib/lib/Net/Gnip/Base.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             package Net::Gnip::Base;
2              
3 14     14   91 use strict;
  14         31  
  14         570  
4 14     14   18146 use XML::LibXML;
  0            
  0            
5              
6             =head1 NAME
7              
8             Net::Gnip::Base - base package for Net::Gnip objects
9              
10             =head1 METHODS
11              
12             =cut
13              
14             =head2 parser
15              
16             Return an XML::Parser object
17              
18             =cut
19              
20             my $parser;
21             sub parser {
22             return $parser ||= XML::LibXML->new;
23             }
24              
25              
26             sub _do {
27             my $self = shift;
28             my $what = shift;
29             $self->{$what} = shift if @_;
30             return $self->{$what};
31             }
32              
33              
34             1;