line |
!l |
l&&!r |
l&&r |
condition |
148
|
0 |
0 |
0 |
$#_ == 0 && ref $_[0] eq 'HASH'
|
168
|
0 |
0 |
0 |
$#_ == 0 && ref $_[0] eq 'HASH'
|
179
|
0 |
0 |
0 |
$#_ == 0 && ref $_[0] eq 'HASH'
|
189
|
0 |
0 |
0 |
$#_ == 0 && ref $_[0] eq 'HASH'
|
|
0 |
0 |
0 |
defined $v and not ref $v
|
|
0 |
0 |
0 |
ref $v eq 'HASH' and not grep((!/\A(?:url|value)\z/u), keys %{$v;})
|
|
0 |
0 |
0 |
ref $v eq 'HASH' and not grep((!/\A(?:url|value)\z/u), keys %{$v;}) and exists $$v{'url'}
|
|
0 |
0 |
0 |
ref $v eq 'HASH' and not grep((!/\A(?:url|value)\z/u), keys %{$v;}) and exists $$v{'url'} and do {
Type::Tiny::XS::Str($$v{'url'})
}
|
|
0 |
0 |
0 |
ref $v eq 'HASH' and not grep((!/\A(?:amount|currency)\z/u), keys %{$v;})
|
|
0 |
0 |
0 |
ref $v eq 'HASH' and not grep((!/\A(?:amount|currency)\z/u), keys %{$v;}) and exists $$v{'amount'}
|
|
0 |
0 |
0 |
ref $v eq 'HASH' and not grep((!/\A(?:amount|currency)\z/u), keys %{$v;}) and exists $$v{'amount'} and do {
$$v{'amount'} =~ /\A-?[0-9]+\z/u if defined $$v{'amount'}
}
|
|
0 |
0 |
0 |
ref $v eq 'HASH' and not grep((!/\A(?:amount|currency)\z/u), keys %{$v;}) and exists $$v{'amount'} and do {
$$v{'amount'} =~ /\A-?[0-9]+\z/u if defined $$v{'amount'}
} and exists $$v{'currency'}
|
line |
l |
!l&&r |
!l&&!r |
condition |
148
|
0 |
0 |
0 |
$OK{$_} or Carp::croak("Unknown named parameter: $_")
|
168
|
0 |
0 |
0 |
$OK{$_} or Carp::croak("Unknown named parameter: $_")
|
179
|
0 |
0 |
0 |
$OK{$_} or Carp::croak("Unknown named parameter: $_")
|
189
|
0 |
0 |
0 |
$OK{$_} or Carp::croak("Unknown named parameter: $_")
|
|
0 |
0 |
0 |
not exists $$v{'value'} or do {
do {
Type::Tiny::XS::Str($$v{'value'})
}
}
|
|
0 |
0 |
0 |
defined $v and not ref $v or do {
not exists $$v{'value'} or do {
do {
Type::Tiny::XS::Str($$v{'value'})
}
} if ref $v eq 'HASH' and not grep((!/\A(?:url|value)\z/u), keys %{$v;}) and exists $$v{'url'} and do {
Type::Tiny::XS::Str($$v{'url'})
}
}
|
|
0 |
0 |
0 |
defined $v and not ref $v or do {
not exists $$v{'value'} or do {
do {
Type::Tiny::XS::Str($$v{'value'})
}
} if ref $v eq 'HASH' and not grep((!/\A(?:url|value)\z/u), keys %{$v;}) and exists $$v{'url'} and do {
Type::Tiny::XS::Str($$v{'url'})
}
} or do {
if (ref $v eq 'HASH' and not grep((!/\A(?:amount|currency)\z/u), keys %{$v;}) and exists $$v{'amount'} and do {
$$v{'amount'} =~ /\A-?[0-9]+\z/u if defined $$v{'amount'}
} and exists $$v{'currency'}) {
Type::Tiny::XS::Str($$v{'currency'});
}
}
|