File Coverage

blib/lib/Finance/LocalBitcoins/API/Request/AdUpdate.pm
Criterion Covered Total %
statement 12 45 26.6
branch n/a
condition n/a
subroutine 4 22 18.1
pod 0 18 0.0
total 16 85 18.8


line stmt bran cond sub pod time code
1             package Finance::LocalBitcoins::API::Request::AdUpdate;
2 1     1   6 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/%s';
  1         2  
  1         71  
6 1     1   5 use constant ATTRIBUTES => qw(ad_id 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 visible);
  1         1  
  1         697  
7              
8 0     0 0   sub ad_id { my $self = shift; $self->get_set(@_) }
  0            
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 visible { my $self = shift; $self->get_set(@_) }
  0            
23              
24 0     0 0   sub url { sprintf URL, shift->ad_id }
25 0     0 0   sub is_ready_to_send { defined shift->ad_id }
26 0     0 0   sub attributes { ATTRIBUTES }
27              
28             1;
29              
30             __END__