File Coverage

blib/lib/WWW/Tumblr/Test.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 18 21 85.7


line stmt bran cond sub pod time code
1             package WWW::Tumblr::Test;
2              
3 15     15   18977 use strict;
  15         26  
  15         443  
4 15     15   57 use warnings;
  15         22  
  15         415  
5              
6 15     15   55 use WWW::Tumblr;
  15         20  
  15         1172  
7              
8             my $t = WWW::Tumblr->new(
9             # These are "public" keys for my small perlapi blog test.
10             # Don't be a jerk :)
11             consumer_key => 'm2TqZPKBN87VXTf0HZCDbLBmV8IKhjDnSh5SL2MrWYPrvDKIKE',
12             secret_key => 'DfNf21jsNPkDfz5rRW4tUPQf0gR1G8mYtxqBDM62XQSGHNJRY9',
13             token => '5koNK32cgylbsxs9LsTDCWFUrPccYjFCqFIbZayCFLrVlm1zuP',
14             token_secret => 'VbFLz3lZ3P2ghw5b4dHwNNw4IAq13uHgDp4reZy4N24b4VlfM8',
15             );
16              
17 1     1 0 395 sub tumblr { $t }
18 6     6 0 3362 sub user { $t->user }
19 8     8 0 1027962 sub blog { $t->blog('perlapi.tumblr.com') }
20              
21             1;