File Coverage

blib/lib/Finance/LocalBitcoins/API/Request/Ad.pm
Criterion Covered Total %
statement 15 48 31.2
branch n/a
condition n/a
subroutine 5 23 21.7
pod 0 18 0.0
total 20 89 22.4


line stmt bran cond sub pod time code
1             package Finance::LocalBitcoins::API::Request::Ad;
2 1     1   7 use base qw(Finance::LocalBitcoins::API::Request);
  1         3  
  1         88  
3 1     1   6 use strict;
  1         2  
  1         34  
4              
5 1     1   6 use constant URL => 'https://localbitcoins.com/api/ad-create/';
  1         2  
  1         61  
6 1     1   6 use constant ATTRIBUTES => qw(min_amount max_amount price_equation lat lon city location_string countrycode account_info bank_name sms_verification_required track_max_amount require_trusted_by_advertiser trade_type online_provider);
  1         2  
  1         66  
7 1     1   6 use constant READY => 1;
  1         2  
  1         499  
8              
9 0     0 0   sub min_amount { my $self = shift; $self->get_set(@_) }
  0            
10 0     0 0   sub max_amount { my $self = shift; $self->get_set(@_) }
  0            
11 0     0 0   sub price_equation { my $self = shift; $self->get_set(@_) }
  0            
12 0     0 0   sub lat { my $self = shift; $self->get_set(@_) }
  0            
13 0     0 0   sub lon { my $self = shift; $self->get_set(@_) }
  0            
14 0     0 0   sub city { my $self = shift; $self->get_set(@_) }
  0            
15 0     0 0   sub location_string { my $self = shift; $self->get_set(@_) }
  0            
16 0     0 0   sub countrycode { my $self = shift; $self->get_set(@_) }
  0            
17 0     0 0   sub account_info { my $self = shift; $self->get_set(@_) }
  0            
18 0     0 0   sub bank_name { my $self = shift; $self->get_set(@_) }
  0            
19 0     0 0   sub sms_verification_required { my $self = shift; $self->get_set(@_) }
  0            
20 0     0 0   sub track_max_amount { my $self = shift; $self->get_set(@_) }
  0            
21 0     0 0   sub require_trusted_by_advertiser { my $self = shift; $self->get_set(@_) }
  0            
22 0     0 0   sub trade_type { my $self = shift; $self->get_set(@_) }
  0            
23 0     0 0   sub online_provider { my $self = shift; $self->get_set(@_) }
  0            
24              
25 0     0 0   sub url { URL }
26 0     0 0   sub is_ready_to_send { READY }
27 0     0 0   sub attributes { ATTRIBUTES }
28              
29             1;
30              
31             __END__