Branch Coverage

blib/lib/Net/API/Stripe.pm
Criterion Covered Total %
branch 0 1272 0.0


line true false branch
613 0 0 unless length $self->{'amount'}
615 0 0 unless length $self->{'description'}
616 0 0 unless length $self->{'card'}
617 0 0 unless length $self->{'version'}
618 0 0 unless length $self->{'key'}
619 0 0 unless length $self->{'cookie_file'}
620 0 0 unless length $self->{'browser'}
621 0 0 unless length $self->{'encode_with_json'}
622 0 0 unless length $self->{'api_uri'}
626 0 0 unless length $self->{'temp_dir'}
629 0 0 unless length $self->{'ignore_unknown_parameters'}
630 0 0 unless length $self->{'expand'}
636 0 0 if ($self->{'conf_file'})
640 0 0 if length $json->{'livemode'} and not length $self->{'livemode'}
641 0 0 unless ($self->{'key'})
643 0 0 $self->{'livemode'} ? :
647 0 0 if not $self->{$_} and length $json->{$_}
653 0 0 unless $self->{'key'}
654 0 0 unless $self->{'version'}
656 0 0 $self->{'key'} =~ /_live/ ? :
671 0 0 if (@_)
678 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
681 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
683 0 0 if &Scalar::Util::blessed($self->{'api_uri'}) and $self->{'api_uri'}->isa('URI')
759 0 0 if scalar @$err
767 0 0 unless scalar @_
775 0 0 if scalar @$err
778 0 0 unless exists $hash->{'object'}
797 0 0 unless scalar @_
807 0 0 if ($self->_is_hash($args->{'external_account'})) { }
821 0 0 if scalar @$err
829 0 0 unless scalar @_
838 0 0 if scalar @$err
859 0 0 if scalar @$err
860 0 0 if ($args->{'expand'})
862 0 0 unless $self->_adjust_list_expandables($args)
871 0 0 unless scalar @_
880 0 0 if scalar @$err
890 0 0 unless scalar @_
906 0 0 if scalar @$err
935 0 0 unless scalar @_
947 0 0 if ($self->_is_object($_[0]) and $_[0]->isa('Net::API::Stripe::Customer')) { }
0 0 elsif ($self->_is_object($_[0]) and $_[0]->isa('Net::API::Stripe::Payment::Card')) { }
967 0 0 if scalar @$err
970 0 0 unless exists $hash->{'object'}
979 0 0 unless scalar @_
981 0 0 if ($self->_is_object($_[0]) and $_[0]->isa('Net::API::Stripe::Customer')) { }
0 0 elsif ($self->_is_object($_[0]) and $_[0]->isa('Net::API::Stripe::Payment::Card')) { }
984 0 0 unless $cust->id
985 0 0 unless $cust->source
986 0 0 unless $cust->source->id
994 0 0 unless $card->id
995 0 0 unless $card->customer
996 0 0 unless $card->customer->id
1012 0 0 if scalar @$err
1022 0 0 unless scalar @_
1033 0 0 if scalar @$err
1035 0 0 if ($args->{'expand'})
1037 0 0 unless $self->_adjust_list_expandables($args)
1046 0 0 unless scalar @_
1055 0 0 if ($self->_is_object($_[0]) and $_[0]->isa('Net::API::Stripe::Customer')) { }
0 0 elsif ($self->_is_object($_[0]) and $_[0]->isa('Net::API::Stripe::Payment::Card')) { }
1058 0 0 unless $cust->id
1059 0 0 unless $cust->source
1060 0 0 unless $cust->source->id
1069 0 0 unless $card->id
1070 0 0 unless $card->customer
1071 0 0 unless $card->customer->id
1081 0 0 if scalar @$err
1091 0 0 unless scalar @_
1106 0 0 ref $_[0] eq 'HASH' ? :
1109 0 0 if ($self->_is_object($_[0]) and $_[0]->isa('Net::API::Stripe::Customer')) { }
0 0 elsif ($self->_is_object($_[0]) and $_[0]->isa('Net::API::Stripe::Payment::Card')) { }
1112 0 0 unless $cust->id
1113 0 0 unless $cust->source
1114 0 0 unless $cust->source->id
1123 0 0 unless $card->id
1124 0 0 unless $card->customer
1125 0 0 unless $card->customer->id
1136 0 0 if scalar @$err
1158 0 0 unless scalar @_
1174 0 0 if scalar @$err
1176 0 0 if exists $args->{'destination'} and not scalar grep(/^account$/, @{$$args{'destination'};})
1185 0 0 unless scalar @_
1187 0 0 unless exists $args->{'amount'} and length $args->{'amount'}
1215 0 0 if scalar @$err
1218 0 0 if exists $args->{'destination'} and not scalar grep(/^account$/, @{$$args{'destination'};})
1245 0 0 if scalar @$err
1246 0 0 if ($args->{'source'})
1248 0 0 unless $args->{'source'}{'object'} =~ /^(?:all|alipay_account|bank_account|bitcoin_receiver|card)$/
1250 0 0 if ($args->{'expand'})
1252 0 0 unless $self->_adjust_list_expandables($args)
1261 0 0 unless scalar @_
1269 0 0 if scalar @$err
1278 0 0 unless scalar @_
1294 0 0 if ($args->{'fraud_details'})
1297 0 0 unless ($this->{'user_report'} =~ /^(?:fraudulent|safe)$/)
1302 0 0 if scalar @$err
1312 0 0 unless exists $ERROR_CODE_TO_STRING->{$code}
1321 0 0 if (@_)
1325 0 0 if (not -e $file) { }
0 0 elsif (-z $file) { }
1344 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
1347 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
1370 0 0 unless scalar @_
1384 0 0 $_[0] =~ /^\d+(\.\d+)?$/ && $_[0] > 0 && $_[0] <= 100 ? :
1388 0 0 if scalar @$err
1396 0 0 unless scalar @_
1404 0 0 if scalar @$err
1428 0 0 if scalar @$err
1429 0 0 if ($args->{'expand'})
1431 0 0 unless $self->_adjust_list_expandables($args)
1440 0 0 unless scalar @_
1448 0 0 if scalar @$err
1457 0 0 unless scalar @_
1470 0 0 if scalar @$err
1483 0 0 if $action eq 'delete'
1492 0 0 unless scalar @_
1495 0 0 if ($args->{'_object'} and $self->_is_object($args->{'_object'}{'invoice'}) and $args->{'_object'}->invoice->isa('Net::API::Stripe::Billing::Invoice'))
1518 0 0 if scalar @$err
1529 0 0 unless length $args->{'id'}
1539 0 0 if scalar @$err
1550 0 0 unless length $args->{'invoice'}
1551 0 0 if ($args->{'_object'} and $self->_is_object($args->{'_object'}{'invoice'}) and $args->{'_object'}->invoice->isa('Net::API::Stripe::Billing::Invoice'))
1578 0 0 if scalar @$err
1602 0 0 if scalar @$err
1603 0 0 if ($args->{'expand'})
1605 0 0 unless $self->_adjust_list_expandables($args)
1614 0 0 unless scalar @_
1619 0 0 if ($obj and $obj->invoice)
1639 0 0 if scalar @$err
1647 0 0 unless scalar @_
1655 0 0 if scalar @$err
1664 0 0 unless scalar @_
1677 0 0 if scalar @$err
1686 0 0 unless scalar @_
1694 0 0 if scalar @$err
1703 0 0 if (@_)
1729 0 0 unless scalar @_
1762 0 0 if scalar @$err
1763 0 0 if $args->{'tax_info'} and $args->{'tax_info'}{'type'} ne 'vat'
1773 0 0 unless scalar @_
1781 0 0 if scalar @$err
1790 0 0 unless scalar @_
1798 0 0 if scalar @$err
1823 0 0 if scalar @$err
1824 0 0 if ($args->{'source'})
1826 0 0 unless $args->{'source'}{'object'} =~ /^(?:all|alipay_account|bank_account|bitcoin_receiver|card)$/
1828 0 0 if ($args->{'expand'})
1830 0 0 unless $self->_adjust_list_expandables($args)
1839 0 0 unless scalar @_
1847 0 0 if scalar @$err
1857 0 0 unless scalar @_
1889 0 0 if ($args->{'fraud_details'})
1892 0 0 unless ($this->{'user_report'} =~ /^(?:fraudulent|safe)$/)
1898 0 0 if scalar @$err
1909 0 0 if $args and ref $args ne 'HASH'
1911 0 0 if ($self->_is_object($path) and $path->can('path')) { }
1919 0 0 unless substr($path, 0, 1) eq '/'
1921 0 0 if $args and %$args
1933 0 0 unless scalar grep(/^$action$/, @$allowed)
1934 0 0 if ($action eq 'delete_customer') { }
0 0 elsif ($action eq 'delete_subscription') { }
1963 0 0 unless scalar @_
1971 0 0 if scalar @$err
1999 0 0 if scalar @$err
2000 0 0 if ($args->{'expand'})
2002 0 0 unless $self->_adjust_list_expandables($args)
2011 0 0 unless scalar @_
2019 0 0 if scalar @$err
2028 0 0 unless scalar @_
2041 0 0 if scalar @$err
2059 0 0 if ($class = $self->_is_object($type)) { }
2070 0 0 unless ($self->_is_class_loaded($class))
2097 0 0 unless scalar @_
2107 0 0 if scalar @$err
2108 0 0 unless (length $args->{'file'})
2113 0 0 if (not -e $file) { }
0 0 elsif (-z $file) { }
0 0 elsif (not -r $file) { }
2149 0 0 if scalar @$err
2150 0 0 if ($args->{'expand'})
2152 0 0 unless $self->_adjust_list_expandables($args)
2161 0 0 unless scalar @_
2169 0 0 if scalar @$err
2187 0 0 if $args and ref $args ne 'HASH'
2189 0 0 if ($self->_is_object($path) and $path->can('path')) { }
2197 0 0 unless substr($path, 0, 1) eq '/'
2199 0 0 if $args and %$args
2208 0 0 if $self->{'ua'}
2233 0 0 if $action eq 'invoice_uncollectible'
2242 0 0 unless scalar @_
2246 0 0 if ($obj and $obj->customer or $self->_is_object($args->{'customer'}) and $args->{'customer'}->isa('Net::API::Stripe::Customer'))
2249 0 0 $obj ? :
2253 0 0 if ($obj and $obj->subscription or $args->{'subscription'} and $self->_is_object($args->{'subscription'}) and $args->{'subscription'}->isa('Net::API::Stripe::Billing::Subscription'))
2256 0 0 $obj ? :
2281 0 0 if scalar @$err
2290 0 0 unless scalar @_
2298 0 0 if scalar @$err
2307 0 0 unless scalar @_
2316 0 0 if scalar @$err
2328 0 0 unless scalar @_
2340 0 0 if scalar @$err
2342 0 0 if ($args->{'expand'})
2344 0 0 unless $self->_adjust_list_expandables($args)
2353 0 0 unless scalar @_
2357 0 0 if ($obj and $obj->customer or $self->_is_object($args->{'customer'}) and $args->{'customer'}->isa('Net::API::Stripe::Customer'))
2360 0 0 $obj ? :
2364 0 0 if ($obj and $obj->schedule and $obj->schedule->id or $args->{'schedule'} and $self->_is_object($args->{'schedule'}) and $args->{'schedule'}->isa('Net::API::Stripe::Billing::Subscription::Schedule'))
2367 0 0 $obj ? :
2371 0 0 if ($obj and $obj->subscription and $obj->subscription->id or $args->{'subscription'} and $self->_is_object($args->{'subscription'}) and $args->{'subscription'}->isa('Net::API::Stripe::Billing::Subscription'))
2374 0 0 $obj ? :
2409 0 0 if scalar @$err
2410 0 0 if ($args->{'expand'})
2412 0 0 unless $self->_adjust_list_expandables($args)
2422 0 0 if ($self->_is_object($args->{'customer'}) and $args->{'customer'}->isa('Net::API::Stripe::Customer'))
2427 0 0 if ($args->{'subscription'} and $self->_is_object($args->{'subscription'}) and $args->{'subscription'}->isa('Net::API::Stripe::Billing::Subscription'))
2454 0 0 if scalar @$err
2455 0 0 if ($args->{'expand'})
2457 0 0 unless $self->_adjust_list_expandables($args)
2466 0 0 unless scalar @_
2469 0 0 if ($obj and $obj->payment_method or $args->{'payment_method'} and $self->_is_object($args->{'payment_method'}) and $args->{'payment_method'}->isa('Net::API::Stripe::Payment::Method'))
2472 0 0 $obj ? :
2476 0 0 if ($obj and $obj->source or $args->{'source'} and $self->_is_object($args->{'source'}) and $args->{'source'}->isa('Net::API::Stripe::Payment::Source'))
2479 0 0 $obj ? :
2496 0 0 if scalar @$err
2505 0 0 unless scalar @_
2513 0 0 if scalar @$err
2522 0 0 unless scalar @_
2530 0 0 if scalar @$err
2539 0 0 unless scalar @_
2543 0 0 if ($obj and $obj->customer or $self->_is_object($args->{'customer'}) and $args->{'customer'}->isa('Net::API::Stripe::Customer'))
2546 0 0 $obj ? :
2550 0 0 if ($obj and $obj->schedule or $args->{'schedule'} and $self->_is_object($args->{'schedule'}) and $args->{'schedule'}->isa('Net::API::Stripe::Billing::Subscription::Schedule'))
2553 0 0 $obj ? :
2557 0 0 if ($obj and $obj->subscription or $args->{'subscription'} and $self->_is_object($args->{'subscription'}) and $args->{'subscription'}->isa('Net::API::Stripe::Billing::Subscription'))
2560 0 0 $obj ? :
2593 0 0 if scalar @$err
2601 0 0 unless scalar @_
2626 0 0 if scalar @$err
2635 0 0 unless scalar @_
2643 0 0 if scalar @$err
2652 0 0 unless scalar @_
2660 0 0 if scalar @$err
2685 0 0 if (@_)
2721 0 0 unless scalar @_
2723 0 0 if ($self->_is_object($_[0])) { }
2725 0 0 if ($_[0]->isa('Net::API::Stripe::Customer')) { }
0 0 elsif ($_[0]->isa('Net::API::Stripe::Payment::Method')) { }
2730 0 0 if $obj->payment_method
2748 0 0 if scalar @$err
2757 0 0 unless scalar @_
2771 0 0 if scalar @$err
2780 0 0 unless scalar @_
2782 0 0 if ($self->_is_object($_[0])) { }
2784 0 0 if ($_[0]->isa('Net::API::Stripe::Customer')) { }
0 0 elsif ($_[0]->isa('Net::API::Stripe::Payment::Method')) { }
2789 0 0 if ($obj->payment_method) { }
0 0 elsif ($obj->invoice_settings->default_payment_method) { }
2797 0 0 unless $args->{'id'}
2814 0 0 if scalar @$err
2834 0 0 if scalar @$err
2835 0 0 if ($args->{'expand'})
2837 0 0 unless $self->_adjust_list_expandables($args)
2846 0 0 unless scalar @_
2854 0 0 if scalar @$err
2864 0 0 unless scalar @_
2878 0 0 if scalar @$err
2906 0 0 unless $id or $nickname
2908 0 0 if $id
2910 0 0 unless (length $args->{'active'})
2921 0 0 if ($nickname and $this->nickname eq $nickname) { }
0 0 elsif ($id) { }
2933 0 0 if ($check_both_active_and_inactive)
2940 0 0 if ($nickname and $this->nickname eq $nickname) { }
0 0 elsif ($id) { }
2956 0 0 unless scalar @_
2959 0 0 if ($self->_is_object($args->{'product'}) and $args->{'product'}->isa('Net::API::Stripe::Product'))
2988 0 0 if scalar @$err
2998 0 0 unless scalar @_
3006 0 0 if scalar @$err
3016 0 0 if ($self->_is_object($args->{'product'}) and $args->{'product'}->isa('Net::API::Stripe::Product'))
3019 0 0 $prod_hash->{'id'} ? :
3039 0 0 unless length $args->{$bool}
3040 0 0 $args->{$bool} eq 'true' || $args->{$bool} ne 'false' && $args->{$bool} ? :
3043 0 0 if scalar @$err
3044 0 0 if ($args->{'expand'})
3046 0 0 unless $self->_adjust_list_expandables($args)
3055 0 0 unless scalar @_
3063 0 0 if scalar @$err
3073 0 0 unless scalar @_
3075 0 0 if ($self->_is_object($args->{'product'}) and $args->{'product'}->isa('Net::API::Stripe::Product'))
3092 0 0 if scalar @$err
3103 0 0 if $args and ref $args ne 'HASH'
3106 0 0 if ($self->_is_object($path) and $path->can('path')) { }
3114 0 0 unless substr($path, 0, 1) eq '/'
3120 0 0 if (exists $args->{'idempotency'})
3122 0 0 unless length $args->{'idempotency'}
3126 0 0 $args ? :
3142 0 0 if $args and ref $args ne 'HASH'
3145 0 0 if ($self->_is_object($path) and $path->can('path')) { }
3153 0 0 unless substr($path, 0, 1) eq '/'
3158 0 0 if (exists $args->{'idempotency'})
3160 0 0 unless length $args->{'idempotency'}
3170 0 0 if ($ref->{'filename'}) { }
3181 0 0 $ref->{'type'} ? :
0 0 $ref->{'encoding'} ? :
3194 0 0 $ref->{'type'} eq 'text/plain' ? :
0 0 $ref->{'encoding'} ? :
3214 0 0 unless scalar @_
3217 0 0 if ($self->_is_object($args->{'product'}) and $args->{'product'}->isa('Net::API::Stripe::Product'))
3245 0 0 if scalar @$err
3254 0 0 if ($self->_is_object($args->{'product'}) and $args->{'product'}->isa('Net::API::Stripe::Product'))
3257 0 0 $prod_hash->{'id'} ? :
3281 0 0 unless length $args->{$bool}
3282 0 0 $args->{$bool} eq 'true' || $args->{$bool} ne 'false' && $args->{$bool} ? :
3285 0 0 if scalar @$err
3286 0 0 if ($args->{'expand'})
3288 0 0 unless $self->_adjust_list_expandables($args)
3297 0 0 unless scalar @_
3305 0 0 if scalar @$err
3315 0 0 unless scalar @_
3317 0 0 if ($self->_is_object($args->{'product'}) and $args->{'product'}->isa('Net::API::Stripe::Product'))
3334 0 0 if scalar @$err
3361 0 0 if ($name and $this->name eq $name or $nickname and $this->nickname eq $nickname)
3373 0 0 unless scalar @_
3384 0 0 ref $_[0] eq 'ARRAY' && scalar @{$_[0];} <= 5 ? :
3388 0 0 ref $_[0] eq 'ARRAY' && scalar @{$_[0];} <= 8 ? :
3397 0 0 if scalar @$err
3407 0 0 unless scalar @_
3415 0 0 if scalar @$err
3446 0 0 if scalar @$err
3447 0 0 if ($args->{'expand'})
3449 0 0 unless $self->_adjust_list_expandables($args)
3458 0 0 unless scalar @_
3466 0 0 if scalar @$err
3476 0 0 unless scalar @_
3483 0 0 ref $_[0] eq 'ARRAY' && scalar @{$_[0];} <= 5 ? :
3487 0 0 ref $_[0] eq 'ARRAY' && scalar @{$_[0];} <= 8 ? :
3500 0 0 if scalar @$err
3530 0 0 unless scalar @_
3542 0 0 if scalar @$err
3551 0 0 unless scalar @_
3566 0 0 if ($obj)
3571 0 0 if scalar @$err
3611 0 0 if scalar @$err
3612 0 0 if ($args->{'expand'})
3614 0 0 unless $self->_adjust_list_expandables($args)
3625 0 0 unless scalar @_
3634 0 0 if scalar @$err
3643 0 0 unless scalar @_
3651 0 0 if scalar @$err
3661 0 0 unless scalar @_
3677 0 0 if scalar @$err
3704 0 0 unless scalar @_
3727 0 0 if scalar @$err
3747 0 0 if scalar @$err
3748 0 0 if ($args->{'expand'})
3750 0 0 unless $self->_adjust_list_expandables($args)
3766 0 0 if scalar @$err
3794 0 0 unless scalar @_
3796 0 0 if ($self->_is_object($_[0])) { }
3798 0 0 if ($_[0]->isa('Net::API::Stripe::Customer')) { }
0 0 elsif ($_[0]->isa('Net::API::Stripe::Payment::Source')) { }
3807 0 0 if $obj->customer
3821 0 0 if scalar @$err
3830 0 0 unless scalar @_
3850 0 0 if scalar @$err
3860 0 0 unless scalar @_
3862 0 0 if ($self->_is_object($_[0])) { }
3864 0 0 if ($_[0]->isa('Net::API::Stripe::Customer')) { }
0 0 elsif ($_[0]->isa('Net::API::Stripe::Payment::Source')) { }
3873 0 0 if $obj->customer
3887 0 0 if scalar @$err
3897 0 0 unless scalar @_
3905 0 0 if scalar @$err
3915 0 0 unless scalar @_
3929 0 0 if scalar @$err
3953 0 0 unless scalar @_
3961 0 0 if scalar @$err
3970 0 0 unless scalar @_
4002 0 0 if scalar @$err
4011 0 0 unless scalar @_
4019 0 0 if scalar @$err
4050 0 0 if scalar @$err
4051 0 0 if ($args->{'expand'})
4053 0 0 unless $self->_adjust_list_expandables($args)
4062 0 0 unless scalar @_
4070 0 0 if scalar @$err
4080 0 0 unless scalar @_
4112 0 0 if scalar @$err
4132 0 0 unless scalar @_
4143 0 0 if scalar @$err
4152 0 0 unless scalar @_
4161 0 0 if scalar @$err
4171 0 0 unless scalar @_
4183 0 0 if scalar @$err
4185 0 0 if ($args->{'expand'})
4187 0 0 unless $self->_adjust_list_expandables($args)
4196 0 0 unless scalar @_
4205 0 0 if scalar @$err
4238 0 0 if @_ and ref $_[0] eq 'HASH'
4239 0 0 unless $opts->{'secret'}
4240 0 0 unless $opts->{'signature'}
4241 0 0 unless length $opts->{'payload'}
4248 0 0 unless &Encode::is_utf8($payload)
4254 0 0 unless length $sig
4264 0 0 unless exists $q->{'t'}
4265 0 0 unless length $q->{'t'}
4266 0 0 unless exists $q->{'v1'}
4267 0 0 unless length $q->{'v1'}
4269 0 0 unless $q->{'t'} =~ /^\d+$/
4271 0 0 unless $q->{'v1'} =~ /^[a-z0-9]{64}$/
4277 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
4280 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
4286 0 0 $expect_sign ne $q->{'v1'} ? :
4287 0 0 if $expect_sign ne $q->{'v1'}
4289 0 0 if $time_diff < 0
4290 0 0 if $time_diff >= $max_time_spread
4299 0 0 if @_ and ref $_[0] eq 'HASH'
4300 0 0 unless $opts->{'ip'}
4316 0 0 unless ($ip->overlaps($stripe_ip_object) == $Net::IP::IP_NO_OVERLAP)
4321 0 0 if ($opts->{'ignore_ip'}) { }
4341 0 0 if ref $args ne 'HASH'
4342 0 0 if (ref $args->{'expand'} eq 'ARRAY')
4347 0 0 if substr($args->{'expand'}[$i], 0, 5) ne 'data.'
4350 0 0 if scalar @$path <= $EXPAND_MAX_DEPTH
4362 0 0 if @_ and ref $_[0] eq 'HASH'
4363 0 0 unless $opts->{'seen'}
4365 0 0 if ($self->_is_object($this)) { }
0 0 elsif (ref $this eq 'HASH') { }
4367 0 0 if $this->can('as_hash')
4374 0 0 if $opts->{'seen'}{$ref_addr}
4375 0 0 if $opts->{'seen'}{$ref_addr}
4380 0 0 if (ref $this->{$k} eq 'HASH' or $self->_is_object($this->{$k})) { }
0 0 elsif (ref $this->{$k} eq 'ARRAY') { }
0 0 elsif (length "$this->{$k}") { }
4384 0 0 if scalar keys %$rv
4391 0 0 if (ref $that eq 'HASH' or $self->_is_object($that))
4394 0 0 if scalar keys %$rv
4397 0 0 if scalar @$new
4428 0 0 unless (exists $mirror->{$k})
4434 0 0 if ref $hash->{$k} eq 'HASH'
4436 0 0 if (ref $hash->{$k} eq 'HASH' and ref $mirror->{$k} eq 'HASH' and ++$seen->{$addr} == 1)
4441 0 0 exists $required->{$k} ? :
4449 0 0 unless (exists $hash->{$k} and length $hash->{$k})
4461 0 0 if $k eq 'expand' or $k eq 'expandable' or substr($k, 0, 1) eq '_'
4462 0 0 unless (exists $okParams->{$k})
4467 0 0 if ($okParams->{'_cleanup'} or $args->{'_cleanup'} or $self->ignore_unknown_parameters) { }
4479 0 0 if (ref $dict eq 'HASH') { }
0 0 elsif (ref $this eq 'CODE') { }
4482 0 0 if ($dict->{'fields'} and ref $dict->{'fields'} eq 'ARRAY')
4485 0 0 if (ref $args->{$k} eq 'ARRAY' and $dict->{'type'} eq 'array') { }
0 0 elsif (ref $args->{$k} ne 'HASH') { }
4506 0 0 if (substr($p, -1, 1) eq '!')
4512 0 0 if ($i == $#path) { }
4518 0 0 unless exists $parent_hash->{$p} and ref $parent_hash->{$p} eq 'HASH'
4519 0 0 if (exists $parent_req->{$p})
4521 0 0 unless ref $parent_req->{$p} eq 'HASH'
4530 0 0 if (ref $args->{$k} eq 'HASH') { }
0 0 elsif (ref $args->{$k} eq 'ARRAY' and $dict->{'type'} eq 'array') { }
4533 0 0 if scalar @$res
4540 0 0 if (ref $arr->[$i] ne 'HASH')
4546 0 0 if scalar @$res
4551 0 0 if ($dict->{'required'} and not exists $args->{$k}) { }
0 0 elsif ($pkg = $self->_is_object($args->{$k}) and $dict->{'package'} and $dict->{'package'} ne $pkg) { }
0 0 elsif ($dict->{'re'} and ref $dict->{'re'} eq 'Regexp' and not $args->{$k} =~ /$dict->{'re'}/) { }
0 0 elsif ($dict->{'type'} and $dict->{'type'} eq 'scalar' && ref $args->{$k} || $dict->{'type'} ne 'scalar' && ref $args->{$k} && lc ref $args->{$k} ne $dict->{'type'}) { }
0 0 elsif ($dict->{'type'} eq 'boolean' and length $args->{$k}) { }
0 0 elsif ($dict->{'type'} eq 'date' or $dict->{'type'} eq 'datetime') { }
4575 0 0 $args->{$k} eq 'true' || $args->{$k} ne 'false' && $args-- > {$k} ? :
4579 0 0 unless ($self->_is_object($args->{$k}) and $args->{$k}->isa('DateTime'))
4581 0 0 $dict->{'time_zone'} ? :
4583 0 0 if ($dict->{'type'} eq 'date' and $args->{$k} =~ /^(?<year>\d{4})[\.|\-](?<month>\d{1,2})[\.|\-](?<day>\d{1,2})$/) { }
0 0 elsif ($dict->{'type'} eq 'datetime' and $args->{$k} =~ /^(?<year>\d{4})[\.|\-](?<month>\d{1,2})[\.|\-](?<day>\d{1,2})[T|[:blank:]]+(?<hour>\d{1,2}):(?<minute>\d{1,2}):(?<second>\d{1,2})$/) { }
0 0 elsif ($args->{$k} =~ /^\d+$/) { }
4599 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
4602 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
4620 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
4623 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
4634 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
4637 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
4639 0 0 if ($dt)
4641 0 0 $dict->{'pattern'} ? :
4656 0 0 if $res
4660 0 0 unless length $args->{'expand'}
4661 0 0 if (exists $args->{'expand'}) { }
4665 0 0 if ($args->{'expand'} eq 'all' or $args->{'expand'} =~ /^\d+$/)
4668 0 0 if ($args->{'expand'} =~ /^\d+$/)
4673 0 0 if (exists $okParams->{'expandable'} and exists $okParams->{'expandable'}{'allowed'} and ref $okParams->{'expandable'}{'allowed'} eq 'ARRAY') { }
4685 0 0 if ref $args->{'expand'} ne 'ARRAY'
4686 0 0 if (scalar @{$args->{'expand'};} and exists $okParams->{'expandable'}) { }
0 0 elsif (not exists $okParams->{'expandable'}) { }
4688 0 0 if ref $okParams->{'expandable'} ne 'HASH'
4689 0 0 unless exists $okParams->{'expandable'}{'allowed'}
4692 0 0 if (not $no_need_to_check) { }
0 0 elsif ($depth) { }
4694 0 0 if (scalar @$expandable) { }
4697 0 0 if ref $expandable ne 'ARRAY'
4700 0 0 $okParams->{'expandable'}{'data_prefix_is_ok'} ? :
4703 0 0 unless ($k =~ /$re/)
4716 0 0 length $depth ? :
4722 0 0 if (scalar @$path_parts > $max_depth)
4729 0 0 if scalar @$errExpandables
4733 0 0 if scalar @{$args->{'expand'};}
4749 0 0 if ref $required ne 'ARRAY'
4751 0 0 if ref $args ne 'HASH'
4755 0 0 unless exists $args->{$f} and length $args->{$f}
4771 0 0 if (ref $this->{$k} eq 'HASH') { }
0 0 elsif ($self->_is_object($this->{$k}) and $this->{$k}->isa('Module::Generic::Boolean')) { }
4774 0 0 if ++$seen->{$addr} > 1
4780 0 0 $this->{$k} ? :
4791 0 0 if ($self->{'_encode_with_json'})
4801 0 0 if ($type eq 'hash') { }
0 0 elsif ($type eq 'array') { }
0 0 elsif (ref $data eq 'JSON::PP::Boolean' or ref $data eq 'Module::Generic::Boolean') { }
0 0 elsif (ref $data eq 'SCALAR' and $$data == 1 || $$daata == 0) { }
0 0 elsif ($type eq 'datetime') { }
0 0 elsif ($type) { }
4807 0 0 if ($pkg and $pkg =~ /^Net::API::Stripe/ and $data->{$k}->can('id') and $data->{$k}->id)
4814 0 0 $pref ? :
4823 0 0 $pref ? :
4829 0 0 $data ? :
4833 0 0 $$data ? :
4858 0 0 if scalar @_ and ref $_[-1] eq 'HASH'
4862 0 0 unless length $param
4863 0 0 unless length $param->{'encoding'}
4864 0 0 unless (exists $ref->{$key})
4869 0 0 if length $param->{'filename'}
4870 0 0 if length $param->{'type'}
4871 0 0 if substr($this->{'type'}, 0, 4) eq 'text'
4872 0 0 if ($param->{'encoding'}) { }
4874 0 0 if ($param->{'encoding'} eq 'qp' or $param->{'encoding'} eq 'quoted-printable') { }
0 0 elsif ($param->{'encoding'} eq 'base64') { }
4900 0 0 if ($type eq 'hash') { }
0 0 elsif ($type eq 'array') { }
0 0 elsif (ref $data eq 'JSON::PP::Boolean' or ref $data eq 'Module::Generic::Boolean') { }
0 0 elsif (ref $data eq 'SCALAR' and $$data == 1 || $$daata == 0) { }
0 0 elsif ($type) { }
4908 0 0 if ($pkg and $pkg =~ /^Net::API::Stripe/ and $data->{$k}->can('id') and $data->{$k}->id) { }
0 0 elsif (ref $data->{$k} eq 'HASH' and exists $data->{$k}{'_filepath'}) { }
4919 0 0 unless length $data->{$k}{'_filepath'}
4923 0 0 if (not -e $this_file) { }
0 0 elsif (not -r $this_file) { }
4943 0 0 unless (length $binary)
4954 0 0 $pref ? :
4962 0 0 $pref ? :
4967 0 0 $data ? :
4971 0 0 $$data ? :
4990 0 0 if not scalar @_ or scalar @_ == 1 and not defined $_[0]
4992 0 0 if $self->_is_object($_[0])
4993 0 0 @_ == 1 ? :
0 0 ref $_[0] eq 'HASH' ? :
5002 0 0 if ($self->_is_object($_[0]) and $_[0]->isa($class)) { }
5021 0 0 unless length $action
5022 0 0 if ref $allowed ne 'ARRAY'
5023 0 0 unless scalar @$allowed
5024 0 0 if ($action eq 'remove') { }
0 0 elsif ($action eq 'add') { }
5032 0 0 unless (scalar grep(/^$action$/, @$allowed))
5037 0 0 unless $meth
5045 0 0 if exists $self->{$name} and &Scalar::Util::blessed($self->{$name})
5053 0 0 if $@
5060 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
5063 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5084 0 0 if $self->encode_with_json
5091 0 0 if ($resp->is_success or $resp->is_redirect) { }
5102 0 0 if ($resp->header('Content_Type') =~ m[text/html]) { }
5119 0 0 if ($@)
5122 0 0 $resp ? :
5138 0 0 if $self->_is_object($class)
5142 0 0 if $ref->{$c} eq $class
5153 0 0 unless exists $ref->{$type}
5162 0 0 if not ref $ref or ref $ref ne 'ARRAY'
5166 0 0 if ref $hash ne 'HASH'
5177 0 0 unless scalar @_
5189 0 0 if $@
5197 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
5200 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5201 0 0 unless defined $o