File Coverage

blib/lib/WWW/BackpackTF/Listing.pm
Criterion Covered Total %
statement 8 19 42.1
branch n/a
condition n/a
subroutine 3 13 23.0
pod 9 10 90.0
total 20 42 47.6


line stmt bran cond sub pod time code
1             package WWW::BackpackTF::Listing;
2              
3 2     2   23 use 5.014000;
  2         4  
4 2     2   6 use strict;
  2         2  
  2         26  
5 2     2   6 use warnings;
  2         2  
  2         296  
6             our $VERSION = '0.002001';
7              
8             sub new{
9 0     0 0   my ($class, $content) = @_;
10 0           bless $content, $class
11             }
12              
13 0     0 1   sub id { shift->{id} }
14 0     0 1   sub currencies { shift->{currencies} }
15 0     0 1   sub item { shift->{item} }
16 0     0 1   sub details { shift->{details} }
17 0     0 1   sub bump { shift->{bump} }
18 0     0 1   sub created { shift->{created} }
19 0     0 1   sub intent { shift->{intent} }
20 0     0 1   sub is_selling { shift->intent == 1 }
21 0     0 1   sub is_buying { shift->intent == 0 }
22              
23             1;
24             __END__